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EINLEITUNG 


Künstliche Intelligenz ist ohne jeden Zweifel in der Computerentwicklung ein 
Bereich von stetig wachsender Bedeutung, der in den nächsten Jahrzehnten einen 
starken Einfluß auf unser aller Leben haben wird. Sinn dieses Buches ist es, den 
Leser mit einigen Bereichen der künstlichen Intelligenz bekanntzumachen, und ihm 
zu zeigen, wie “intelligente” Routinen in BASIC entwickelt werden können, die er 
dann in seine eigenen Programme einfügen kann. Es wird nur eine oberflächliche 
Kenntnis von BASIC erwartet, und das Buch beginnt mit den Grundiagen, da wir der 
Meinung sind, daß man nur so die Probleme künstlicher Intelligenz verstehen und 
bewältigen kann. 

Das Buch geht grundsätzlich davon aus, daß Ideen aufgegriffen werden und 
passende Routinen dafür Schritt für Schritt entwickelt, untersucht und wenn möglich 
alternative Lösungen gesucht werden. Anstatt nur eine Serie kompletter Pro- 
gramme anzugeben, ermutigen wir Sie, verschiedene Möglichkeiten auszuprobie- 
ren, um so eigene Resultate zu erhalten. Als weitere Hilfe haben wir detaillierte 
Ablaufdiagramme für die meisten Routinen beigefügt. Bei diesen Routinen liegt der 
Schwerpunkt bei den Aspekten der künstlichen Intelligenz; deshalb haben wir es 
vermieden, die Bildschirmdarstellung besonders zu “polieren”, da dadurch der 
eigentliche Zweck des Programms in den Hintergrund tritt. In einigen Bereichen 
sind unnötig erscheinende Programmzeilen absichtlich eingefügt, um den Pro- 
grammablauf klar darzustellen. 

So weit wie möglich wurde die Wiederholung von Zeilen vermieden, aber deren 
Änderung ist im Laufe der weiteren Programmentwicklung normal. Alle Ausdrucke 
In diesem Buch haben das gleiche Format wie auf dem Bildschirm. In den meisten 
Fällen wurden Leerzeichen und Klammern benutzt, um die Ausdrucke lesbarer zu 
machen, was jedoch nicht bedeutet, daß sie nicht in einigen Fällen für den 
fehlerfreien Ablauf des Programms notwendig sind. Alle Routinen sind ausführlich 
getestet worden, und die Ausdrucke wurden sorgfältig überprüft, so daß wir hoffen, 
daß Sie keine Fehler finden werden. Es ist jedoch eine bekannte Tatsache, daß die 
meisten Fehler durch “Eingabefehler” des Benutzers entstehen. Semikolon und 
Komma sehen manchmal sehr unwichtig aus, aber ihr Fehlen kann schwere Folgen 
haben. 

Künstliche Intelligenz wird von Tag zu Tag wichtiger, und wir hoffen, daß Ihnen 
dieses Buch einen nützlichen Einblick in diesen Bereich geben kann. Wer weiß — 
wenn Sie sich wirklich in diesen Bereich hineinknien, wird es Ihnen möglicherweise 
bald gelingen, Ihren Computer dazu zu überreden, daß er unser nächstes Buch 
selbst liest! 


Keith und Steven Brain 
Groeswen, im Januar 1984 


KAPITEL 1 


KÜNSTLICHE INTELLIGENZ 


FANTASIE 


Seit Generationen haben die Autoren von Zukunftsromanen die Entwicklung von 
intelligenten Maschinen vorausgesagt, die menschliche Aufgaben wahrnehmen 
(oder sie sogar in manchen Bereichen übertreffen) können, und haben damit 
unbestreitbar die öffentliche Meinung über künstliche Intelligenz geprägt. Daraus 
ergab sich die landläufige Meinung, daß ein Roboter eine intelligente Maschine mit 
allgemein menschlichem Aussehen ist, die selbständig ihm allgemein gegebene 
Anweisungen ausführen kann. 

In den meisten Fällen haben Menschen unterschwellige Angstgefühle in bezug auf 
die Technik, so daß in den ersten Zukunftsromanen diese Roboter meistens die 
Rolle der fast unbesiegbaren und gewissenlosen “Bösen” übernehmen mußten. 
Der weitsichtige Isaac Asimov schrieb eine lange Reihe von Geschichten über 
diese “Positronic Roboter” und war wahrscheinlich der erste Autor, der mit den 
Wirklichkeiten dieser Situation umgehen konnte. Er stellte die “Drei Gesetze der 
Automation” auf, die die Grundregeln für jede Maschine bilden, die zu unabhängi- 
gen Aktionen fähig sein soll. Interessanterweise war er jedoch nicht in der Lage 
vorauszusehen, wann die Menschheit die Anwesenheit solcher Maschinen auf der 
Erde akzeptieren würde. ; 

“Der Krieg der Sterne” kennt die spezialisierten Roboter R2D2 und C3PO, die 
jedoch mit vielen ihrer Eigenschaften auf uns einen sehr seltsamen Eindruck 
machten. Vielleicht hat eine interplanetarische Robotergewerkschaft die direkte 
Kommunikation zwischen Menschen und R2D2 vertraglich verhindert. In “Die 
Ehefrauen von Stepford” hatten deren Männer die (gute?) Idee, ihre Ehefrauen in 
“Androiden” zu verwandeln, die automatisch genau das taten, was man von ihnen 
erwartete. Aber die Fortsetzung zeigte die Gefahren der Notwendigkeit, das Verhal- 
ten der Androiden laufend erneut von außen bestimmen zu müssen. Hoffentlich 
haben eventuelle außerirdische Eindringlinge nicht den “Kampfstern Galactica” 
gesehen und werden deshalb Roboter des Typs "CYLON” bauen, die wie die alten 
“Space Invaders” letztlich wegen ihrer völligen Durchschaubarkeit immer vernich- 
tet werden konnten. 

Natürlich gibt es intelligente Computer auch in Gehäusen ohne Arme und Beine, 
obwohl flackernde Lämpchen obligatorisch zu sein scheinen. Die Kommunikation 
mit ihnen ist natürlich verbal, aber die Tage der alten metallischen Stimme sind 
vorbei, und eine gewisse Persönlichkeit ist innen nicht mehr abzusprechen. Es wäre 
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eine gute Idee, sie alle gleich aussehen zu lassen, aber lassen Sie Ihren bitte nicht 
wie Sergeant Zero in “Terrahawks” sprechen! Mit Michael Knight’s KITT kann man 
sich schon recht angenehm unterhalten, und er ist auf jeden Fall dem schwierigen 
SLAVE und dem widerwärtigen ORAC aus "Biake’s Sieben” vorzuziehen. Durch 
ORAG enthält diese kleine Plexiglasbox eine enorme Portion von Verachtung, aber 
dadurch werden wahrscheinlich die Probleme vermieden, die bei einem zu nahen 
Abbild des Menschen durch eine Maschine entstehen könnten, 

Der superintelligente Computer HAL in Arthur ©. Clarke’s Spielfilm “2001 Odyssee 
im Weltraum” bekam einen Nervenzusammenbruch, als er mit zu viel Verantwor- 
tung konfrontiert wurde; die intelligente Bombe in "Der dunkle Stern” diskutierte 
begeistert mit Kapitän Doolittle über den Existentialismus, aber war nicht bereit, von 
der vorgesehenen Explosionszeit abzuweichen, obwohl sie noch im Bomben- 
schacht war. In “Das Restaurant am Ende des Universums” wurde der “Glückliche 
Menschentransporter” der Sirius Cybernetics Gesellschaft wertlos, als er sich 
weigerte zu starten, als er in die Zukunft sehen konnte und dort seine wahrscheinli- 
che Zerstörung voraussah, und der “Nutri-Matic Getränkeautomat” ist wahrschein- 
lich von der Deutschen Schlafwagengesellschaft entwickelt worden, da er immer 
ein Getränk produzierte, das nicht im geringsten etwas mit Kaffee zu tun hatte. 
Beängstigendere Dinge passierten in der jüngsten Vergangenheit. Das wichtigste 
Geschehen des Filmes “Kriegsspiele“ war nicht die Tatsache, daß es jemand 
gelang, in JOSHUA (den Verteidigungs-Computer der USA) einzudringen, son- 
dern, daß die Maschine, einmal angefangen einen Atomkrieg zu spielen, dieses 
nicht mehr stoppte, bis jemand das Spiel gewonnen hatte. In dem Film „Das Forbin 
Projekt“ taten sich die amerikanischen und russischen Computer zusammen und 
waren sich darüber einig, daß die Menschen sowieso unnötig sind. Wenn Sie 
natürlich “Marvin — der paranoide Android” sind und ein Gehirn von der Größe 
eines Planeten und eine eigene menschliche Persönlichkeit haben, dann können 
Sie die feindliche Maschine auch ohne Waffen besiegen, indem Sie ihr den Boden 
unter den Füßen durch die Diskussion der eigenen Probleme wegziehen. 


WIRKLICHKEIT 


Die Definition und das Erkennen maschineller Intelligenz wird zwischen den ent- 
sprechenden Experten heftig diskutiert. Die am meisten anerkannte Definition 
wurde zuerst von Alan Turing in den späten 40er Jahren entwickelt, als Computer 
so groß wie Häuser und seltener als Rechenschieber heute waren. Anstatt eine 
Reihe zu erfüllender Kriterien zu definieren, betrachtete er das Problem aus einer 
weiteren Perspektive. Er erkannte, daß die meisten Menschen davon ausgehen, 
daß die meisten anderen Menschen intelligent sind, und wenn ein Mensch nicht 
unterscheiden kann, ob er es mit einem anderen Menschen oder nur mit einem 
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Computer zu tun hat, er diese Maschine dann als intelligent anerkennt. Diese 
Tatsache bildet die Grundlage des bekannten "Turing Tests”, bei dem die Testper- 
son eine Unterhaltung mit einem “anderen” über eine Tastatur führen muß und 
dabei versuchen muß herauszubekommen, ob der andere eine Maschine oder auch 
ein Mensch ist. 

Viele Geschichten handeln von diesem Test, aber wir finden die am interessante- 
sten, bei der ein Bewerber um einen Arbeitsplatz einfach an eine Tastatur gesetzt 
und sich dort überlassen wird. Natürlich erkennt er die Wichtigkeit dieses Tests für 
seine berufliche Zukunft und versucht mit Gewalt das Geheimnis zu lüften, offen- 
sichtlich ohne Erfolg. Nach einiger Zeit kommt der Interviewer jedoch zurück, 
schüttelt inm die Hand und gratuliert ihm mit den Wörtern: “Gut gemacht, die 
Maschine konnte nicht feststellen, ob Sie ein Mensch sind. Sie sind also für die 
Position als Steuerbeamter bestens geeignet”. 

Jedermann weiß aus der Fernsehwerbung, daß computerunterstützte Entwicklung 
inzwischen zu den normalen Techniken gehört, und daß sich in den Werkshallen 
von Autofabriken fast nur noch Industrieroboter aufhalten, und an den Autofenstern 
Aufkleber mit der Aussage “Entwickelt von einem Computer, hergestellt von einem 
Roboter und gefahren von einem Idioten" befinden. In Wirklichkeit haben die 
meisten dieser Industrieroboter nur eine minimale Intelligenz, da sie lediglich 
vorgegebenen Arbeitsprozessen folgen, ohne wirkliche Entscheidungen zu treffen. 
Sogar der eindrucksvolle Lackierautomat folgt nur gläubig den Bewegungen, die ein 
Mensch vorher mit seinem Arm durchgeführt hat. Er ist nicht in der Lage, neue Teile 
ohne weitere neue Unterstützung durch einen Menschen zu lackieren. 
Andererseits wird die nächste Generation dieser Roboter sehr hoch entwickelte 
Sensoren und Software haben, mit denen sie die Umrisse, Farben und Oberflächen 
von Objekten erkennen können, und die ihnen erlauben werden, rationale Entschei- 
dungen zu treffen. Jeder, der die Berichte über die legendären “Micromouse”- 
Wettbewerbe gesehen hat, bei dem die elektrischen Nager selbständig und zielstre- 
big (?) dem Zentrum eines Irrgartens zustreben, kann nicht mehr überrascht sein, 
wenn wir an die Zukunft von intelligenten Robotern glauben, obwohl es wahrschein- 
lich keinen Sinn hat, ihnen zwei Arme und zwei Beine zu geben. 

Ein anderer wichtiger Bereich, in dem zur Zeit künstliche Intelligenz benutzt wird, 
sind die “Expertensysteme”. Viele von ihnen vollführen ihre Arbeit genau so gut 
oder sogar schon besser als menschliche Experten, speziell im Bereich der 
Wettervoraussage. Diese Systeme können für viele Bereiche benutzt werden, im 
Speziellen sind sie von ständig wachsender Bedeutung in den Bereichen der 
medizinischen Diagnose und Behandlung — jedoch brauchen sich die Ärzte keine 
Sorgen um ihre Zukunft zu machen, da die Computer bestimmt niemals in der Lage 
sein werden, die Patienten zu verhätscheln. 

Das größte Problem in bezug auf eine breitere Benutzung von Computern ist die 
Unwissenheit und Engstirnigkeit der Benutzer, die die Bedienungsanleitungen nur 
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als letzte Rettung lesen und von der Maschine erwarten, daß diese all ihre kleinen 
Absonderlichkeiten versteht. Die Verarbeitung des “gesprochenen Wortes” ist 
deshalb ein Bereich, in dem noch viel getan werden muß, und die Computer der 
fünften Generation werden sehr viel benutzerfreundlicher sein. 

In den meisten Bereichen der künstlichen Intelligenz werden besser passende 
(aber auch exotischere) Programmiersprachen als BASIC, z. B. LISP und PROLOG 
benutzt, die für den normalen Benutzer ziemlich unverständlich sind und wahr- 
scheinlich nicht auf Ihrem Mirkocomputer zu Hause zur Verfügung stehen. Von den 
in den nächsten Kapiteln folgenden BASIC-Routinen können Sie natürlich nicht 
erwarten, daß sie Ihnen alle Möglichkeiten der künstlichen Intelligenz eröffnen. Sie 
werden Ihnen jedoch ein ziemlich gutes Gefühl für die Möglichkeiten und Probleme 
der künstlichen Intelligenz vermitteln. 
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KAPITEL 2 


NUR BEFEHLEN FOLGEN 


Da Ihr Computer in Wirklichkeit ziemlich unintelligent ist, können Sie sich mit ihm 
nur in sehr einfacher Weise unterhalten. Der erste Schritt, der in vielen einfachen 
Abenteuerspielen verwendet wird, besteht aus einer Reihe von vorgegebenen 
Befehlen, für die es fest vorgegebene Antworten gibt. Wir wollen damit beginnen, 
daß wir nach vorgegebenen Himmelsrichtungen suchen, um uns in eine bestimmte 
Richtung zu bewegen. Am einfachsten scheint es zu sein, in dem Programm nach 
einem INPUT des Benutzers zu fragen und dann für jede einzelne Möglichkeit eine 


getrennte IF-THEN-Zeile zu schreiben (siehe Ablaufdiagramm 2.1). 


188 
1208 
288 
218 
228 
238 
e58 


FRINT"RICHTUNG ?"7 

INPUT IN$ 

IF IN$="NORD" THEN PRINT"NORD" 
IF IN$="SUED" THEN PRINT"SUED* 
IF INS="WEST" THEN PRINT"WEST" 
IF IN&="0ST" THEN PRINT"OST" 


GOETO 188 
EINGABE 
RICHTUNG 


ee 
A 
De 






v 
R 






av, 
a 







Ablaufdiagramm 2.1 Gibt Himmelsrichtungen an 
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Wenn nun irgend etwas anderes als eines der vier Schlüsselwörter eingegeben 
wird, wird nichts ausgedruckt, dafür aber eine neue Eingabe angefordert. Es wäre 
erheblich benutzerfreundlicher, wenn der Computer angeben würde, warum diese 
Eingabe nicht gültig war. Sie könnten das dadurch erreichen, daß ein Test eingefügt 
wird, der alle möglichen Schlüsselwörter abprüft. Bei einer großen Anzahl von 
gültigen Wörtern würde diese Vorgehensweise sehr umständlich und praktisch 
unmöglich werden. 


248 IF IN$<>"NORD"AND IN$<>"SUED"AND IN$ 
S>'WEST"AND IN$<>"OST"THEN INs="" 

245 IF IN$=""THEN PRINT"UNGUELTIGE EINGA 
BE":GOTO 198 


Andererseits kann durch das Anfügen von GOTO 100 an das Ende jeder IF-THEN- 
Zeile ein direkter Rücksprung zum INPUT beim Erkennen eines gültigen Komman- 
dos erzwungen werden. Wenn keiner der IF-Tests wahr ist, erreicht das Programm 
die Zeile 240, in der eine Warnung ausgedruckt wird. Es ist auf jeden Fall besser, 
nach dem Finden eines gültigen Wortes sofort zurückzuspringen, da es das System 
davor bewahrt, unnötige Tests bei bereits gefundener Antwort durchzuführen (siehe 
Ablaufdiagramm 2.2). 


EINGABE 
RICHTUNG 





Ablaufdiagramm 2.2 Unnötige Tests vermeiden 
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288 IF 
O6 
218 IF 
28 
228 IF 
88 
230 IF 
88 


IN$= "NORD" THEN PRINT"NORD":GOTO 1 
IN$="SUED"THEN PRINT"SUED*":GOTO 1 
INS="WEST"THEN PRINT"WEST":GOTO 1 


IN$="0O5T" THEN PRINT"OST" :GOTO 1 


2498 PRINT"UNGUELTIGE EINGABE" 


In diesem Fall wird beim Auffinden eines gültigen Kommandos dieses nochmal auf 
dem Bildschirm angezeigt, aber ansonsten tut es nichts. Um den wirklichen 
Umgang mit den einzelnen Marschrichtungen zu lernen, definieren wir eine Startpo- 
sition als X%=0 und Y%=0 und berücksichtigen die Bewegung relativ zu diesem 
Punkt durch plus und minus. Wenn immer möglich sollten Ganzzahlen (Integer) 
benutzt werden, da diese schneller als Realzahlen verarbeitet werden; außerdem 
wird dadurch die Kollision mit reservierten Namen vermindert. 


19 Kr=0:Y%=0 


Wir müssen nun nur noch unsere Positionsbewegungen mit in den Befehl überneh- 
men und dem Benutzer mitteilen, daß wir ihn richtig verstanden haben (siehe 
Ablaufdiagramm 2.3). 


288 IF 
1:G0OTO 
eila IF 
1:GOTO 
2280 IF 
1:G60T0O 
238 IF 
1:G0T0O 


IN$="NORD"THEN PRINT"NORD": YA=Yr- 


188 
IN$="SUED"THEN PRINT"SUED": YA=Y%+ 
108 
IN$="WEST"THEN PRINT"WEST":AA=H%- 
198 


IN$S="0O5T" THEN PRINT"OST" :KA=K%4+ 
109 


Durch diese Programmerweiterung wissen wir jetzt immer genau, wo wir uns in 
Bezug auf unseren Startpunkt befinden. Um nun auch noch auf dem Bildschirm zu 


zeigen, wo wir uns wirklich befinden, ist die folgende Befehlszeile einzufügen: 


118 PRINT"X"I87,"Y"IY2 
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WIR BENUTZEN UNTERPROGRAMME 


Das war bis jetzt ein sehr einfaches Beispiel. Wenn die Ergebnisse der Aktionen ein 
bißchen komplizierter werden, ist es im allgemeinen ratsam, die Antworten als 
Unterprogramme zu programmieren. 


esa IF IN$="NORD"THEN GOSUB 2808:60T0 18 
21a IF IN$="SUED"THEN GOSUB 2189:G0T0 18 
8 

228 IF IN$="WEST"THEN GOSUB 2388:G60T0 18 
8 

238 IF IN$="0ST" THEN GOSUB 2488:G0T0 1 
8 

2a88 PRINT "NACH NORDEN": YA=Y%-1:RETURN 

eiaa PRINT "NACH SUEDEN": YA=Y7+1:RETURN 

2e2a90 PRINT "NACH WESTEN" :KA7=K%-1:RETURN 

23980 PRINT "NACH OSTEN" SK#4=K%+1:RETURN 


MEHR FLEXIBILITÄT 


Die Verwendung dieser IF-THEN-Tests könnte nun ins “Unendliche” erweitert 
werden; aber das wäre wirklich ein recht primitiver Weg, der nur Probleme bringt, 
wenn die Programme komplizierter werden sollen. Ein sehr viel eleganterer Weg, 
mit diesen Kommandowörtern und den entsprechenen Systemreaktionen zu arbei- 
ten, kann durch ihre Eingabe über DATA und die Abspeicherung in Tabellen erreicht 
werden. Dazu müssen zuerst Tabellen entsprechender Länge für die Kommando- 
wörter (C$) und die Antworten (R$) angelegt bzw. DIMensioniert werden. Da BASIC 
Zeichenketten variabler Länge zuläßt (bis zu 255 Zeichen), kann der aktuelle Text 
so gut wie jede Länge haben. 


38 DIM C&(3),R$(3) 


Wenn die Kommandos und die Antworten in den DATA-Anweisungen paarweise 
angeordnet werden, können sie nicht so leicht durcheinander kommen, und es ist 
sehr viel einfacher, sie in die entsprechenden Elemente jeder Tabelle einzulesen 
(siehe Tabelle 2.1). 


18908 DATA NORD,NACH NORDEN,.SUED,NACH SU 
EDEN,WEST,NACH WESTEN,OST,NACH OSTEN 
11898 FÜR N=B TO 3 

11818 READ CE$(iN? REN? 

11920 NEXT N 





ELEMENT KOMMANDO ANTWORT 
NUMMER WORT C$(N) R$(N) 
1 NORD NACH NORDEN 
2 SUED NACH SUEDEN 
3 WEST NACH WESTEN 
4 OST NACH OSTEN 


Tabelle 2.1 Inhalt der Kommando- und Antwortentabellen 


Um die Tabellen während des Programmlaufs initialisieren zu können, das heißt, 
seine Elemente mit den Schlüsselwörtern und Antworten zu füllen, ist nur noch ein 
GOSUB und RETURN notwendig. 


498 GÜSUB1BB0U 
11838 RETURN 


Diese umständlichen IF-THEN-Tests können nun durch eine einfache Schleife 
ersetzt werden, die den INPUT mit jedem Element der Tabelle, das die Kommando- 
wörter (C$) enthält, vergleicht (siehe Ablaufdiagramm 2.4). Die Zeilen 200 bis 220 
müssen durch die folgenden Zeilen ersetzt werden, und Zeile 230 muß gelöscht 
werden. 

2a90 FOR N=a TO 3 

218 IF IN$=SCHCN) THEN PRINT R$SCNI:GOTO 1 

28 

Bra NEKT N. 


GI/B Aus 
XUNDY 
GIB EIN 
RICHTUNG 


ÜBERPRÜFE 
BEFEHLS 
ELEMENT 








ERHÖHE 
ELEMENT 


NUMMER 





Ablaufdiagramm 2.4 Mehr Beweglichkeit 
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Falls die Eingabe IN$ mit einem der Kommandowörter übereinstimmt, verläßt das 
Programm die Suchschleife und gibt die passende Antwort R$(N) aus. 

Natürlich sind wir immer noch bei der Startposition, da wir noch keine Bewegung 
durchgeführt haben. Es muß also noch sichergestellt werden, daß die Unterpro- 
gramme aufgerufen werden, mit denen die jeweiligen Bewegungen durchgeführt 
werden. Zuerst müssen wir jedoch den Sprung aus der Suchschleife für den Fall 
bewerkstelligen, daß unser Schlüsselwort gefunden worden ist. 


218 IF IN$=SC$(N) THEN PRINT R$S<CN>:GOTO 3 
214} 


Da wir den Wert von N (der Nummer des letzten überprüften Tabellenelementes) 
kennen, wissen wir auch, bei welchem Schlüsselwort wir die Übereinstimmung mit 
der Eingabe hatten. Wir können diesen Wert in einer ON-GOSUB-Anweisung zur 
Auswahl des richtigen Unterprogramms benutzen. Diese Unterprogramme ähneln 
denen, die wir bereits vorher geschrieben haben, aber es ist nicht mehr nötig, die 
entsprechende Antwort auszugeben, da dies bereits in Zeile 210 geschehen ist. 


sea ON<N+1)> GOSUB 2899 ,21909,2299 ,2300:60 
TO 198 

2088 YA=YA-1:RETURN 

21IOD YA=YA+HLSRETURN 

2208 K#=8%-1: RETURN 

2300 KA=K#+1:RETURN 


WIR ERWEITERN DAS VOKABULAR 


Die Tabellen können sehr leicht erweitert werden, um mehr Wörter aufnehmen zu 
können. Zum Erreichen einer größtmöglichen Flexibilität dimensionieren wir die 
Tabellen mit der Variablen WD%, die wir ebenfalls für die Einlese- und die 
Suchschleife benutzen. Dadurch bekommen wir eine allgemein gültige Routine, die 
leicht durch Zuweisung neuer Werte für die Variable WD% geändert werden kann. 


20 WIR=3 

39 DIM C$&(WDA> ,RECWDA) 
E88 FOR N=B TO WDX 
11800 FOR N=8 TO WDA 


Z. B. können wir zusätzliche Richtungen der Kompaßrose benutzen, 
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28 LDR=7 

198818 DATA NORDOST,NACH NORDOSTEN, SUEDOS 
T,NACH SUEDOSTEN 

18828 DATA SUEDWEST,NACH SUEDWESTEN,NORD 
WEST,NACH NORDWESTEN 


für die wir natürlich zusätzliche Unterprogramme benötigen: 


388 ON<N+1) GOSUB 29809,2109,2200 ,2398,24 
80 ,2500,26008,27909:G0T0 18 


2498 Ya=Y%-1IRKSRAtr1ERETURN 
2508 Ya=sYä+l:!XX7=K%t 1: RETURN 
28508 Yi=Ya+lX%=R%-1:RETURN 
2709 YA=YA-1:RR=HR%-1:RETURN 


WIR BEREINIGEN DAS PROGRAMM 


Alle Antworten, die wir bis jetzt benutzt haben, haben das Wort “nach” benutzt, das 
wir deshalb in jeder DATA-Anweisung eingeben mußten. Diese Tippübungen 
mögen zwar für einen angehenden Sekretär sehr praktisch sein, aber für einen 
Programmierer gibt es einen eleganteren Weg; er definiert sich dieses vielbenutzte 
Wort ebenfalls als Zeichenkette. Es darf dabei nicht vergessen werden, am Ende 
des Wortes ein Leerzeichen anzufügen, um es von den folgenden Wörtern abtren- 
nen zu können. 


108189 G#="NACH " 


Jetzt ist endlich die Möglichkeit gegeben, dieses Wort in allen DATA-Anweisungen 
zu löschen. Dafür muß natürlich die Variable G$ mit jedem Schlüsselwort in der 
Antwort ausgegeben werden. 


eıa IF IN$=C$CND THEN PRINT G$&FRSCNI:GOT 
0 2386 

189009 DATA NORD ,NORDEN,SUED,SUEDEN,WEST, 
WESTEN,OST,OSTEN 

108918 DATA NORDOST ,NORDOSTEN,SULEDOST,SUE 
DOSTEN 

19922 DATA SUEDLEST,SUEDWESTEN,NORDWEST, 
NORDWESTEN 
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Bei genauer Betrachtung dieser Unterprogramme kann man feststellen, daß sie im 
Prinzip alle das gleiche tun — sie ändern die Werte von X% und Y%. Wenn wir auch 
noch diese Information mit in unsere DATA-Anweisungen übernehmen könnten, 
dann hätten wir ein weiteres Problem gelöst! Wir brauchen nur noch zwei weitere 
Tabellen anzulegen, um die X- und Y-Koordinaten abzuspeichern, fügen die ent- 
sprechenden Werte bei den DATA-Anweisungen hinter der entsprechenden Ant- 
wort ein und lesen diese Gesamtinformation jeweils in Viererblöcken (Eingabe, 
Antwort, X-Bewegung, Y-Bewegung — siehe Tabelle 2.2). 


38 DIM C$(WDR) ,RECWDXI X CWD) „YCWID) 
10888 DATA NORD ,NORDEN,G,-1,SUED,SUEDEN, 
8,1,WEST,WESTEN,-1,8,0ST,0OSTEN,1,® 

ıga198 DATA NORDOST,NORDOSTEN,1,.-1,SLEDOS 
T,SUEDOSTEN, 1,1 

ı1e92& DATA SUEDWEST,SULEDWESTEN, -1,1,NORD 
WEST,NORDLESTEN,-1,-1 

11818 RERD C$&(N),RSCND,KCN),YCN) 


ELEMENT- EINGABE ANTWORT BEWEGUNGSWERT 
NUMMER WORT C$(N) R$(N) x = Y 


1 NORD NACH NORDEN 0 1 
1 SUED NACH SUEDEN 0 1 
1 WEST NACH WESTEN 1 0 
1 OST NACH OSTEN 1 0 
1 NORDOST NACH NORDOSTEN 1 —1 
1 SUEDOST NACH SUEDOSTEN 1 1 
1 SUEDWEST NACH SUEDWESTEN 1 1 
1 NORDWEST NACH NORDWESTEN 1 1 


Tabelle 2.2 In Tabellen eingebaute X- und Y-Verschiebungen 


Jetzt können wir die Zeilen 300 bis 2700 löschen und die Zeile 210 so modifizieren, 
daß X% und Y% hier geändert werden (siehe Ablaufdiagramm 2.5). 


E18 IF IN$S=SCH(ND THEN PRINT GSHRSCHNI IKXK= 
RAFKLCNISYASYAHYCND:IGOTO 100 
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Diese Vorgehensweise, bei der die gesamte benötigte Information in eine Gruppe 
von Tabellen abgelegt wird, ist eine weitverbreitete Vorgehensweise und wird noch 
in vielen weiteren Programmen dieses Buches benutzt. 











G/BAus 


EINGABE 


x= y= 
PASSEND PASSEND 
x Y 
ELEMENT ELEMENT 


ERHÖHE 


Ablaufdiagramm 2.5 Nutzung verbundener Felder 


WIR KÜRZEN KOMMANDOS 


Bis jetzt haben wir immer kompiette Wörter als Kommandos benutzt, aber dafür sind 
viele Fingerübungen notwendig, bis der Computer alle Anweisungen kennt. Da 
routinierte Programmierer jedoch von Natur aus faul sind, sollte man darüber 
nachdenken, ob es nicht ausreicht, von jedem Wort nur den ersten Buchstaben zu 
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benutzen, und deshalb auch nur einen einzelnen Buchstaben einzugeben. In 
diesem Fall ist darauf zu achten, daß jetzt nur noch Wörter mit unterschiedlichen 
Anfangsbuchstaben benutzt werden können. Zum Kennzeichnen der bis jetzt 
benutzten acht Kompaßrichtungen brauchen wir deshalb bis zu zwei Buchstaben, 
um sie einwandfrei unterscheiden zu können. 


18088 DATA N,NORDEN,®,-1,5,SUEDEN,d,1,W, 
WESTEN, -1,8,0,0STEN, 1,8 

18818 DATA NO,NORDOSTEN,1,-1,50,SUEDOSTE 
N.1,1 

ina28 DATA SW,SUEDWESTEN, -1,1,NW,NORDWES 
TEN,-1,-1 


Es ist Ihnen sicherlich aufgefallen, daß wir wirklich nur die Eingabe abgekürzt haben, 
und der Computer in der zweiten Tabelle immer noch den vollen Text für die 
Antwort abgespeichert hat. 


WIR PRÜFEN BUCHSTABENWEISE 


Bei allen bis jetzt entwickelten Programmen haben wir die exakte Übereinstimmung 
des Eingabewortes mit dem entsprechenden Schlüsselwort der Tabelle überprüft. 
Es wäre aber sehr nützlich, wenn wir eine Anzahl von ähnlichen Wörtern ebenfalls 
als gültige Antwort zulassen würden; z.B. könnte es ausreichen, wenn nur der 
erste Buchstabe des Eingabewortes mit dem abgekürzten Schlüsselwort überein- 
stimmt. 


138 IN$=LEFTS<INS,1) 


Dies würde wunderbar mit Norden, Süden, Osten und Westen funktionieren. Bei 
den Zwischenrichtungen hätten wir jedoch schon Unterscheidungsprobleme. 
Außerdem gibt es noch eine Fülle von Wörtern, die mit dem Buchstaben N,S,O 
und W beginnen und nach dieser einfachen Logik als gültige Antwort akzeptiert 
werden müßten. 

Zum Beispiel: 


NICHT NORDEN 
würde ergeben: 
NACH NORDEN 
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Eine weit sicherere Auswahl kann durch die Benutzung von mehreren Buchstaben 
getroffen werden. Für unsere vier Haupthimmelsrichtungen würden die ersten drei 
Buchstaben für eine eindeutige Identifizierung sicher ausreichen. In diesem Fall 
würden z. B. die Wörter “WES”, “WEST” und “WESTLICH” alle akzeptiert werden, 
und die Wörter “WAS”, “WIND”, “WUNDE” und “WALD” würden alle zurückge- 
wiesen werden. 

Wir brauchen also nur noch die ersten drei Buchstaben der Eingabe LEFT$(IN$,3) 
mit einer veränderten DATA-Liste zu vergleichen. Die Zeilen 10010 und 10020 
werden nicht mehr benötigt, und die Wortanzahlvariable W$% muß den entspre- 
chenden Wert zugewiesen bekommen. Da wir mit dem Element 0 in der Tabelle zu 
zählen beginnen, muß WD$ in diesem Fall auf den Wert 3 gesetzt werden. 


28 WDOXR=3 

139 INSF=LEFTECINE,3) 

18988 DATA NOR,NORDEN,d,-1,SUE,SUEDEN,G, 
1,WES,WESTEN,-1,8,0ST,0STEN, 1,8 


WIR VERWENDEN FOLGEKOMMANDOS 


In den bisherigen Programmroutinen haben wir für jede Himmelsrichtung eine 
diskrete Eingabe bzw. Abfrage durchgeführt. Die Kombination von verschiedenen 
Richtungen in einer Eingabe würde es uns erlauben, uns auch ohne diese speziel- 
len Eingaben zu jedem Punkt unseres Systems zu bewegen. Wir könnten dann z. B. 
das Kommando “NORDWEST” als eine Kombination der beiden Kommandos 
“NORD” und “WEST” behandeln. 

Dies konfrontiert uns zum ersten Mal mit der Notwendigkeit, eine Eingabe in ihre 
einzelnen Wörter zu zerlegen. Stellen Sie sich bitte selbst die Frage, wie Sie eine 
Folge von Buchstaben als zu einem Wort gehörig erkennen. Richtig! Zwischen zwei 
Wörtern muß ein Leerzeichen sein. Wir brauchen also nur in unserer Eingabe nach 
Leerzeichen zu suchen, um die einzelnen "Wörter" zu erkennen. 

Die INSTR-Anweisung erlaubt es uns, eine Zeichenkette auf Übereinstimmung mit 
einer anderen Zeichenkette zu untersuchen. Unglücklicherweise ist diese BASIC- 
Anweisung nicht im COMMODORE-BASIC enthalten, so daß wir uns dafür eine 
eigene Routine schreiben müssen. Wir legen sie als Unterprogramm bei der Zeile 
5000 ab und benutzen sie für den Rest des Buches als unsere eigenen INSTR- 
Routine. 


sao@ FOR N=1 TO LENCINF) 
saıa IF MIDSCIN$,N,L>=" "THEN SPA=N :RET 
URN 
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so28 NEXT N 
sa38 SPr=0 
5848 RETURN 


Dieses Unterprogramm überprüft, ob das erste Zeichen in IN$ ein Leerzeichen ist. 
Wenn dies nicht zutrifft, überprüft es automatisch Zeichen für Zeichen, bis das Ende 
von IN$ erreicht ist. Wenn ein Leerzeichen gefunden wird, gibt der Wert von SP% 
die Position des Leerzeichens in IN$ an; ist kein Leerzeichen vorhanden, wird SP% 
auf Null gesetzt (siehe Ablaufdiagramm 2.6). 


GIBE/N 
BEFEHL 









GIB Aus 
POSITION 


Ablaufdiagramm 2.6 Herausfinden der Position eines Leerzeichens 


Zum Aufrufen dieses Unterprogramms vom Hauptprogramm, und zum Ausdrucken 
des Ergebnisses nach der Rückkehr ins Hauptprogramm brauchen wir folgende 
Programmzeilen: 


138 GOSUB 5898 
148 PRINT SPZ :GOTO 188 


Versuchen Sie es mit: 


NOR WES 


NORD WEST 
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OR NOR WEST 
3 


Beachten Sie bitte, daß der Wert von SP% immer um 1 höher ist, als die Länge des 
ersten Wortes, da der Suchprozeß nach dem Auffinden des ersten Leerzeichens 
abgebrochen wird. Um alle Leerzeichen aufzufinden, müssen wir noch etwas mehr 
Gedankengut investieren. Aber zuerst löschen wir die Zeile 140, die wir nur für 
diesen Zwischenschritt benötigt haben. 

Lassen Sie uns die Eingabe noch einmal logisch vom Anfang (das heißt, von links) 
an betrachten. Dazu ersetzen wir LEFT$(IN$,3) durch MID$(IN$,ST% ‚3), wodurch 
wir uns jede Drei-Buchstaben-Kombination von IN$ ansehen können. Das Ergebnis 
dieser Funktion nennen wir W$. Zu Beginn setzen wir die Suchstartposition ST% 
auf 1 und setzen ein Leerzeichen vor IN$, um auch das erste Wort zu finden (siehe 
Ablaufdiagramm 2.7). 


125 STA=1:1IN$=" 125 STA=1: INg=" "+IN$ 
138 GOSUB 5998 

198 WE=MIDSCINS,STA,3) 

218 IF WESCHCN) THEN PRINT GSI/RSCNI:IKA=K 
A+RENISYASYAHYCND:GOTO 108 

5808 FOR N=ST% TO LEN\ INS) 


Wenn dieses Programm, wie oben angegeben, ausgeführt wird, wird nur das erste 
Wort gefunden, da wir am Ende der Zeile 210 ein GOTO 100 haben. Aber auch das 
Zurückspringen des Programms zu unserer INSTR-Routine in Zeile 130 löst das 
Problem nicht, da es die Überprüfung immer wieder mit dem Anfang von IN$ 
beginnen wird und jedesmal dasselbe Leerzeichen findet. Wenn wir erst einmal das 
erste Leerzeichen gefunden haben, müssen wir zur Überprüfung des nächsten 
Zeichens die Startposition ST% um 1 erhöhen. Wenn keine weiteren Leerzeichen 
gefunden werden können, haben wir das Ende der Eingabe erreicht und können 
wieder zur Zeile 100 springen. 


i48 IF SPA>@ THEN ST#=SP7+1:G60T0 198 

159 GOTO 198 

218 IF WE=SCHiN) THEN PRINT GES RS<CNI:KA=R 
FRIRENIEYASYAHYCENI:GOTO 138 
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GIB EIN 
BEFEHL 











SETZE SUcH 
PosıTIoN 
AUF SPACE] 


(ST= 5P++) 





















GEHE ZUM 
NÄCHSTEN 


ZEICHEN 


ÜBERPRÜFE 
ÜBEREIN= 
STIMMUNG 






Ablaufdiagramm 2.7 Suche nach einem Schlüsselwort 
Die Eingabe: 

NORD WEST 
ergibt: 


NACH NORDEN 
NACH WESTEN 


und sogar: 
NOR NOR OST 
wird erkannt als: 
NACH NORDEN 


NACH NORDEN 
NACH OSTEN 
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Es wäre sehr viel sinnvoller, wenn wir all diese unnötigen “nach” nicht mehr 
ausgeben würden und alle Richtungen hintereinander in derselben Zeile ausdruk- 
ken könnten. Wir brauchten dann G$ nur einmal direkt vor der INSTR-Routine 
auszudrucken. Jedesmal, wenn wir durch die Scheife gehen, die das eingegebene 
Wort mit den abgespeicherten Schlüsselworten vergleicht, drucken wir R$(N); aber 
nur, wenn wir wirklich eine Übereinstimmung gefunden haben. Da wir hinter dem 
Druckbefehl ein Semikolon angegeben haben, wird kein Zeilenvorschub generiert, 
und die Wörter werden in der gleichen Zeile ausgedruckt. Damit sie gut lesbar sind, 
trennen wir sie durch ein Leerzeichen. Um nach Abschluß der Untersuchung einer 
Eingabe die entsprechenden Ergebnisse in der nächsten Zeile drucken zu können, 
fügen wir in Zeile 145 ein einfaches PRINT ein. 


126 PRINT 68; 
145 PRINT 
21a IF WESC$CN) THEN PRINT RSCNI5" "518% 
ENYHKCNI SI YASYAHYEND SGOTO 138 
Die Eingabe: 
NORDEN OSTWAERTS SUEDLICH WEST 


schickt Sie im Kreis zum Ausgangspunkt zurück: 


NORDEN OSTEN SUEDEN WESTEN 
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KAPITEL 3 . 


VERSTEHEN DER UMGANGSSPRACHE 


Bis jetzt konnten wir uns mit dem Computer nur in einer sehr beschränkten Art und 
Weise unterhalten, da wir ihn nur programmiert hatten, einige Wörter oder Buchsta- 
ben zu verstehen, und er diese nur erkannt hat, wenn wir-sie genau in der 
vorgegebenen Art eingegeben haben. Wenn Sie z. B. bei der Eingabe ein Leerzei- 
chen vor oder hinter Ihrem Kommando eingefügt haben, wird es zurückgewiesen. 
Dies geschieht, weil wir die beiden Zeichenketten auf genaue Übereinstimmung 
überprüfen. 

In der Wirklichkeit benutzen wir die sogenannte “Umgangssprache”, die eine 
ziemlich komplizierte und außerordentlich variable Angelegenheit ist, mit der nor- 
malerweise nur ein menschliches Gehirn umgehen kann. Sogar wenn wir Unter- 
schiede, wie zwischen “Deutsch” und “Schweizerdeutsch” oder landschaftliche 
Dialekte außer acht lassen, ergeben sich beim Arbeiten mit der Umgangssprache 
eine unendliche Anzahl von Problemen. 

Sogar das höchstentwickelte System der Welt kann nicht mit allen sprachlichen 
Problemen fertig werden. Es gibt eine alte Geschichte, die Ihnen dieses Problem 
wunderbar illustriert. Der CIA entwickelte ein exzellentes Übersetzungsprogramm, 
das in der Lage war, sofort von englisch nach russisch und wieder zurück zu 
übersetzen. 

In der Hoffnung, den Präsidenten der Vereinigten Staaten damit beeindrucken zu 
können, demonstrierten sie ihm die Möglichkeiten dieses Programms. Das Pro- 
gramm übersetzte alles, was der Präsident sagte, sofort in russisch, wiederholte es 
und übersetzte es dann wieder zurück in die englische Sprache. Er war außeror- 
dentlich beeindruckt und beschäftigte sich nur noch mit dem System, bis ihn einer 
seiner Mitarbeiter daran erinnerte, daß seine Frau draußen auf ihn wartete. Als er zu 
seiner Entschuldigung bemerkte: “Aus den Augen, aus dem Sinn”, war er höchst 
erstaunt, daß ihm die Maschine mit “Unsichtbarer Verrückter!” antwortete. 


BEHANDLUNG VON SÄTZEN 


Jeder weiß, daß die wirkliche Sprache aus Sätzen besteht; aber was verstehen wir 
wirklich genau unter einem Satz? Nun gut, die offensichtlichste Art, einen Satz zu 
erkennen, ist, wenn wir einen Punkt sehen. Aber wenn wir uns wirklich mit Sätzen 
beschäftigen wollen, müssen wir schon ein bißchen mehr darüber wissen. 

Ein Satz wird im allgemeinen definiert als “eine Folge von gesprochenen oder 
geschriebenen Wörtern, die eine grammatikalische vollständige Aussage bildet und 
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normalerweise ein Subjekt und Prädikat enthält, mit der man Aussagen, Fragen, 
Aufforderungen oder Anforderungen” ausdrücken kann oder auch die simple 
Definition “Teil der Sprache oder eines Schreibens zwischen zwei Satzpunkten”. 
So, da haben wir unser Problem zurück. Kann das jemand in normales Deutsch 
übersetzen? Wie kann man von einem Computer erwarten, daß er mit all den 
Schwierigkeiten und unlogischen Regeln der deutschen Sprache zurecht kommt? 
In Ordnung, !assen Sie uns zuerst ein paar ganz einfache Satzbeispiele betrachten. 


ICH WILL. 
Besteht aus dem Subjekt ICH und dem Verb WILL. 
ICH WILL BISQUIT. 
hat auch noch das Objekt BISQUIT. 
ICH WILL SCHOKOLADEN BISQUIT. 
erweitert das Objekt mit dem Adjektiv SCHOKOLADEN. 
ICH WILL MANCHMAL SCHOKOLADEN BISQUIT. 
erweitert das Verb mit dem Adverb MANCHMAL. 


Das wichtigste Wort in allen Beispielen war “will”, da es die wichigste Idee dieser 
Sätze zum Ausdruck bringt. Das zweite Beispiel war schon informativer als das 
erste, da es herausstellte, daß Sie nur ein ganz bestimmtes Objekt, nämlich die 
BISQUIT, möchten. Durch das Hinzufügen des Adjektivs SCHOKOLADEN haben 
wir weitere Informationen über die Art des gewünschten Objekts, aber durch das 
Hinzufügen des Adverbs MANCHMAL wurden wir doch wieder ziemlich verunsi- 
chert. 

Wie kann nun ein Computer-Programm solche Sätze entschlüsseln? Die Antwort 
kann nur in einer logischen Struktur dieser Sätze liegen. Welche “Regeln” können 
wir für diese Beispiele finden? 


1. Alle Beispiele begannen mit dem Subjekt ICH und endeten mit einem Punkt. 


2. Das letzte Wort war immer das Objekt BISQUIT (es sei denn, es gab kein Objekt, 
und der Satz bestand nur aus zwei Wörtern). 


3. Wenn das Wort vor dem Objekt nicht das Verb WILL war, war es das Adjektiv 
SCHOKOLADEN oder das Adverb MANCHMAL. 
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Lassen Sie uns jetzt ein Programm schreiben, in dem wir dem Computer Sätze 
übergeben, die er in ihre Teile auflösen soll. 

Zu Beginn geben wir ihm ein Vokabular von Objekten, Adjektiven und Adverbien, 
mit denen er arbeiten kann. Wir lesen (READ) diese von den DATA-Anweisungen 
und legen sie dann in den Tabellen OB, AJ und AV ihres Typs entsprechend ab. 


ia GOSUB 18008 

108898 DIM OB#(5),AJS(S) ,AVS(2) 

18810 Dim WE(4) 

185399 REM OBJEKTE 

110898 DATA BISQUIT,ZWIEBACK ‚KUCHEN 

11818 DATA KAFFEE,TEE ‚WASSER 

11813 REM ADJEKTIVE 

11828 DATA SCHOKOLADEN, INGWER ‚MARMELADEN 


11838 DATA KALTEN,HEISSE ‚LAUKARM 
i1833 REM ADVERBIEN 

110840 DATA IMMER ,OFT ‚MANCHMAL 
11188 FOR N=8 TO 5 

11118 READ OBS(ND 

1il28 NEHT N 

11138 FOR N=8 TO 5 

ill48 REARD AJSıND 

11159 NEXT N 

11168 FOR N=B TO 2 

11178 READ AVs(ıND 

11182 NEXT N 

i1198 RETURN 


Als nächstes müssen wir die Sätze in Wörter aufteilen (siehe Ablaufdiagramm 
3.1). Das machen wir wieder, indem wir mit unserer INSTR-Routine nach Leerzei- 
chen suchen. Zur Erleichterung fügen wir am Ende von IN$ ein Leerzeichen an, so 
daß das Format des letzten Wortes des Satzes wie das aller anderen ist. 


188 INPUT IN$ 
1208 IN$S=INS+" " 
138 GOSUB 5999 
198 GOTO 1398 


Das Ende des Satzes ist erreicht, wenn keine Leerzeichen mehr gefunden werden. 
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1498 IF SP%-=8 THEN 2809 


Wenn ein Leerzeichen gefunden wird, wird der Bereich von IN$, beginnend bei 
ST% (laufende Suchposition) bis SP%-ST% (laufendes Leerzeichen minus lau- 
fende Suchposition = Länge des Wortes), herausgelöst und in einer Wortspeicher- 
tabelle W$(WC%) abgelegt. 


158 WECWCH)=MIDSCINF,ST/,SPA-ST7) 
18818 DIM WEI) 


GIBRUS 
"Zu and" 


GEHE ZUM 
NÄCHSTEN 


ZEICHEN 


ERHÖHE 
WORTZAHLER 
(' wc =WC+I 


SETZE DIE 

SUCHPOSITIO 
ZURÜCK 
ST=SP+4) 





Ablaufdiagramm 3.1 Worte herausfinden 
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Wir beginnen mit ST%=1, so daß die Suche wirklich mit dem ersten Zeichen der 
Eingabe beginnt. 


Der Wortzähler WC% wird auf Null gesetzt, so daß das erste gefundene Wort im 
Element O der Wortspeichertabelle W$ abgelegt wird. 


119 STA=1:WCH=8 


Der Wortzähler wird erhöht (so daß das nächste Mal das nächste Element der 
Tabelle W$ benutzt wird), und der Satz wird darauf überprüft, ob er nicht mehr als 
fünf Wörter enthält. Der Start für die nächste Überprüfung wird dann auf die Position 
hinter dem letzten Leerzeichen gesetzt, und die Überprüfung wird fortgesetzt. 


1658 WCA=SWEH+I 

178 IF WCHA3S THEN PRINT "SATZ ZU LANG ": 
GOTO 108 

188 STA=SPA+1 


Nun wird überprüft, ob wir eine Übereinstimmung zwischen den Schlüsselwörtern 
des Satzes und den in der Tabelle OB$(N) abgelegten Objekten finden (siehe 
Ablaufdiagramm 3.2). Dabei werden nur die Wörter zwei bis vier (das heißt, das 
dritte, vierte oder fünfte Wort des Satzes) überprüft. Bei unserem sehr einfachen 
Beispiel kann das Objekt nur in diesen Positionen auftreten. Entsprechend der 
gefundenen Position springt das Programm zu drei verschiedenen Routinen. Sollte 
überhaupt keine Übereinstimmung gefunden werden, wird eine entsprechende 
Meldung ausgegeben und eine neue Eingabe angefordert. 


198 GOTO13& 

288 FOR N=8 TO 5 

218 IF WEI2I=0B$(N) THEN 596 

228 IF WEC3?=0OBE(N) THEN 688 

8308 IF WEI43=0BS$CN) THEN 7088 

248 NEXT N 

e5@ FRINT "OBJEKT NICHT GEFUNDEN" 
268 GOTO 188 


Wenn das Objekt als Wort 2 gefunden wurde, gab es in diesem Satz weder ein 
Adjektiv noch ein Adverb. 


588 PRINT "KEIN ADJEKTIV ODER ADVERB" 
Sie GOTOI1OE 
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Ablaufdiagramm 3.2 Suche nach einer Übereinstimmung 


Wenn das Objekt als Wort 3 gefunden wurde, kann der Satz entweder ein Adjektiv 
oder ein Adverb enthalten (siehe Ablaufdiagramm 3.3). 


682 PRINT"ENTWEDER ADJEKTIV ODER ADVERB" 


Zuerst überprüfen wir, ob das Wort 2 mit irgendeinem Inhalt‘der Adverbtabelle 
übereinstimmt. 


818 FOR N=8 TO 2 
S28 IF WIELZ23=AVSCN) THEN 3089 
638 NEXT N 
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Ablaufdiagramm 3.3 Adverb oder Adjektiv 


Wenn keine Übereinstimmung gefunden wird, müssen wir das Wort 2 noch gegen 
die Adjektivtabelle überprüfen. 


S94& FÜR N=ä TO 5 
859 IF WEI23=AJSIN) THEN 1890 
SEO NEHRT N 


Wenn in einem dieser beiden Tests das Eingabewort in der entsprechenden Tabelle 
gefunden wurde, wird eine entsprechende Meldung ausgegeben. Beachten Sie 
jedoch, daß diese beiden Möglichkeiten exklusiv sind, das heißt, daß in einem Satz 
mit vier Wörtern entweder nur ein Adverb oder ein Adjektiv möglich ist. 
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E78 IF WEIL>ISP"WILL" THEN PRINT "ADVERB" 
IWEC1>3" UNVERSTAENDBLICH ":G60T0199 

688 PRINT "ADJEKTIV "WEC235" UNVERSTAEN 
DBLICH ":GOTO1088 


Sse8 PRINT "ADVERB" 
918 GOTO 188 

18988 PRINT "ADJEKTIY" 
1818 GOTO 188 


Wenn ein Adverb und ein Adjektiv vorhanden sind, müssen wir den Satz auf beide 
Möglichkeiten überprüfen; das heißt, nach dem erfolgreichen ersten Test muß auch 
der zweite Test durchgeführt werden (siehe Ablaufdiagramm 3.4). 


a8 PRINT "ADVERB UND ADJEKTIV" 
rı8 FOR N=ö TO 2 

T28 IF WEC2Y=AVSCN) THEN 758 
738 NEXT N 


Wenn kein passendes Adjektiv gefunden wird, wird eine entsprechende Meldung 
ausgegeben und das Kennzeichen AV% auf 1 gesetzt, bevor auf Adjektiv geprüft 
wird. 


?’48 PRINT "ADVERB "W$SC2)5" UNVERSTAENDL 
ICH ":Avasi 

758 FOR N=8 TO 5 

768 IF WEIS) =SAJSCN) THEN 888 

778 NEXT N 


Wenn kein passendes Adjektiv gefunden werden kann, springt das Programm nach 
entsprechender Fehlerausgabe wieder an den Anfangspunkt zurück. 


788 PRINT "ADJEKTIV "7WEC3)5" UNVERSTAEN 
DLICH " 
7938 GOTO 188 


Wenn das Adjektiv jedoch gefunden wurde, wird zusätzlich überprüft, ob das 
Fehlerkennzeichen nicht gesetzt war. In diesem Fall wird eine positive Meldung 
ausgegeben; in beiden Fällen wird das Fehlerkennzeichen auf Null gesetzt, bevor 
die nächste Eingabe angefordert wird. 
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Ablaufdiagramm 3.4 Adverb und Adjektiv 


see IF AV%=8 THEN PRINT "ADJEKTIV UND AD 
VERB OK" 

sie AVYA=8 

828 GOTO 188 
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WIR BERÜCKSICHTIGEN DIE INTERPUNKTION 


Wie wir bereits wissen, wird normalerweise das Ende eines Satzes durch den Punkt 
erkannt. Was passiert aber, wenn ein besonders “kluger” Benutzer anstelle des 
Punktes das Ausrufezeichen oder das Fragezeichen benutzt? Sie können sich 
vorstellen, daß das erhebliche Probleme geben kann, da das letzte Wort jetzt um 
das Fragezeichen oder das Ausrufezeichen verlängert ist. 

Wir müssen deshalb das letzte Zeichen unserer Eingabe IN$ auf den Punkt 
überprüfen; das einfachste ist, es auf den ASCII-Code zu überprüfen. Ist die 
Prüfung positiv, dann “ignorieren” wir dieses Zeichen und fahren wie gewohnt fort. 





NIMM ASC-WERT 
DES 

LETZTEN 

ZEICHENS 







SCHNEIDE 
LETZTES 


ZEICHEN 
WEG 









5 GIBAus 
AUSRUFWG 
ZEICHEN 






GIB AUS 





Ablaufdiagramm 3.5 Behandlung von Satzzeichen 


Wir bringen diese Abprüfungen in einem Unterprogramm unter, das wir sofort nach 
dem Einlesen aufrufen. Da wir auch noch die Prüfungen auf das Fragezeichen und 
das Ausrufezeichen durchführen müssen, speichern wir den ASCII-Code des 
letzten Eingabezeichens in der Variablen LC% ab (siehe Ablaufdiagramm 3.5). 
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185 PRINT:GOSUB 2808 


2888 LCA=SASCKRIGHTSCINS, 133 

E818 IF LCA=46 THEN PRINT"SATZENDE ":G60TO 
2180 

2898 RETURN 

2188 IN$#=LEFT&$CIN$,LENCINS?-1):RETURN 


Wir können die Ausrufezeichen oder Fragezeichen ebenfalls durch den Vergleich 
mit ihrem ASCII-Code herausfinden und ihre Anwesenheit durch eine entspre- 
chende Ausgabe kennzeichnen. 


29828 IF LCA#=33 THEN PRINT "FESTSTELLUNG": 
GOTO2Z108 

20839 IF LC#=63 THEN PRINT"FRAGESATZ ":60T 
02108 


Die normale INPUT-Anweisung erlaubt keine weiteren Eingaben hinter einem 
Komma, da dieses als Schlußzeichen erkannt wird. Aber wir können uns unter 
Verwendung von GET eine Routine schreiben, die jeden Test einschließlich Kom- 
mas akzeptiert. Als erstes "ieeren” wir den Eingabebereich IN$ und geben ein ‘<' 
als Cursor aus. 


188 INS="":PRINT" <"> 


In der Zeile 101 wird auf einen Tastendruck abgeprüft. Wenn keine Taste gedrückt 
ist, wird diese Überprüfung laufend wiederholt. 


181 GET IS#:IF I$="" THEN 101 


Wenn eine Taste gedrückt ist, wird ein “Cursor links”-Symbol gefolgt von dem 
Zeichen der gedrückten Taste ausgegeben. Dieses Zeichen wird dann an den 
Eingabebereich IN$ angefügt, und das Programm springt zurück zu der Prüfroutine 
in Zeile 101. Dadurch erscheint jede Eingabe wir bei einem normalen INPUT auf 
dem Bildschirm, und jeder Fehler kann mit der “Backspace"-Taste korrigiert 
werden. 


183 FRINT"W'7 IS "X "7: INS=INSHIS:GOTO 181 
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Das Ende einer Eingabe kann durch das Abprüfen der RETURN-Taste erkannt 
werden, die den ASCII-Code 13 hat. Wenn die Eingabe vollständig ist, wird der 
Cursor auf die nächste Zeile gesetzt. 


182 IF ASC(Ii$)=13 THEN PRINT:GOTO 185 


Kommata können sehr gut benutzt werden, um Sätze in einzelne Teile zu untertei- 
len, die dann wiederum als “Teilsätze” für sich selbst untersucht werden können. 
Normalerweise ist es jedoch besser, die Kommata durch Leerzeichen zu ersetzen, 
bevor der Satz in Wörter unterteilt wird (siehe Ablaufdiagramm 3.6). 
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Ablaufdiagramm 3.6 Ersetzen vom Kommata und Apostrophen 


Sie müssen jedoch darauf achten, daß kein Leerzeichen nach dem Komma folgen 
darf, da jedes Leerzeichen hinter einem ausgetauschten Komma wieder als Anfang 
eines neuen Wortes erkannt wird. 

Anstatt eine vollkommen neue INSTR-Routine zu schreiben, modifizieren wir 
unsere vorhandene Routine so, daß wir unseren Eingabebereich IN$ auf jede 
vordefinierte Zeichenkette TA$ abprüfen lassen. Für einen zukünftigen Gebrauch 
merken wir uns die Position der Übereinstimmung mit Hilfe der Variablen IS%, 
deren Wert wir dann wieder jeder anderen Variablen, z. B. SP%, zuweisen können. 
Aber zuerst müssen wir jedoch unsere “Leerzeichenabprüfung” auf das neue 
Format umstellen. 
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138 TA$=" ":G0OSUB 5998:5P%=15% 

5218 IF MIDE<INS,N,LENTASI)=STÄAF THEN IS 
%=N: RETURN 

5838 15%=8 


Mit der gleichen Methode können wir natürlich auch das Komma suchen, bevor es 
durch ein Leerzeichen ersetzt wird. 


115 TA$=",":60SUB 3998 

3088 GOSUB 5898:CM4=15% 

3818 IF CM#%=8 THEN STA=1:RETURN 

30820 IN#&=LEFTESINF,CMZ-13+" "+RIGHTSCINS 
‚LEN IN$? -CMA)I 

3830 SFr=Chi+1 

3849 GUOTO3898 


Wenn Sie die folgende Zeile in das Programm übernehmen, können Sie prüfen, ob 
die Satzzeichen wirklich aus der Eingabe entfernt worden sind. 


39825 PRINT IN$ 


Anführungszeichen können In der gleichen Art gefunden werden; sie werden aber 
nicht durch ein Leerzeichen ersetzt, sondern die Wörter werden zusammenge- 
zogen. 


115 TAs=",":G0OSUB 30905: TA$="'":G0SUB3188 


31060 GDSUB 5999: AP7=1S% 

siile IF AFPZ=BO THEN ST%=1:RETURN 

si2E INE=LEFTSCINS,AP%-1> +RIGHTECINS,LEN 
<INEI-APAI 

3125 FRINT INS 

3isd STA=APAHI 

3148 GOTD 3180 


DAS GLEITENDE SUCHEN 


Wenn wir den ganzen Satz von links nach rechts gleitend auf jedes Schlüsselwort 
untersuchen, ohne den Satz zuerst in Wörter aufzuteilen, können wir bei der 
Eingabe ein vollkommen freies Format benutzen. Hierbei nehmen wir das erste 


41 


Schlüsselwort und überprüfen den Eingabebereich IN$ in der gleichen Länge auf 
Übereinstimmung, beginnend mit dem ersten Buchstaben. Bei Nichtübereinstim- 
mung gleiten wir jedesmal einen Buchstaben nach rechts und wiederholen den Test 
so lange, bis wir entweder eine Übereinstimmung erkannt haben oder das Ende von 
IN$ erreicht ist. Wenn z. B. IN$ “ICH WILL KUCHEN” und das erste Schlüsselwort 
“KUCHEN” war, würden die Vergleiche folgendermaßen aussehen: 


1. Durchgang ICH WI 

2. Durchgang CH WIL 

3. Durchgang H WILL 

8. Durchgang L KUCH 

9. Durchgang KUCHE 
10. Durchgang KUCHEN (Übereinstimmung) 


Bis jetzt haben wir mit unserer INSTR-Routine nur jeweils ein einzelnes Zeichen 
gesucht, und wir müssen die Programmzeile 5010 so modifizieren, daß bei der 
Untersuchung die Länge der Zeichenkette TA$ berücksichtigt wird. 


s8lo IF MIDE(IN$,N,LENITASII=STAS THEN IS 
%=N: RETURN 


Die Zeilen 105-1010 sind zu löschen. Dafür ist die Zeile 210 zum Abprüfen auf das 
erste Objekt OB$(0) einzufügen. 


218 TA$=-OBSCM):GOSUB SO99:SPX=1S%: IF SPY 
>»8 THEN PRINT OBE$iM)>r" "5 


Durch die Benutzung einer Schleife können wir die Vergleiche auf jedes Objekt in 
der gleichen Art durchführen. Durch das Semikolon hinter dem Druckbefehl von 


OB$(M) wird sichergestellt, daß jedes Wort auf der gleichen Zeile ausgegeben wird. 


208 FOR M=6 TO 5 
229 NEXT M 


In der gleichen Art und Weise können wir auf die Adverbien Su die Adjektive 
prüfen. 
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398 FOR M=8 TO 2 

318 TAS=AVSCM)I:GOSUB 5989:5PX=1S%7: IF SPA 
>80 THEN PRINT AYS<MDr" "3 

329 NEXT M 

4088 FOR M=8 TO 5 

ala TAS=AJISCMI:GOSUB SO9B:SPA=IST:IF SPA 
>B THEN PRINT AJ$S<M)3" *" 

420 NEXT M 

1098 GOTO 188 

RERDY. 


Um auszugeben, was wir gefunden haben, und um die entdeckten Wörter später 
wieder verwenden zu können, speichern wir jedes sofort in einer Tabelle ab. Unsere 
Wortspeichertabelle W$ erweitern wir auf eine Kapazität von 20 Wörtern, damit wir 
auch längere Sätze behandeln können. 


18819 DIM WEC1IS) 


Wenn eine Übereinstimmung erkannt wird, wird das gefundene Wort in der Zei- 
chenkette T$ zwischengespeichert, und ein Unterprogramm in der Zeile 1500 
aufgerufen, daß dieses Wort in das erste Element der MIORSPOICHENEBEIG ablegt 
(siehe Datenflußdiagramm 3.7). 
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Ablaufdiagramm 3.7 Ansteigende Suche 
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218 TA$=0B$CM):GOSUBIHHN: SPA=1S%: IF SPA> 
© THEN T$=0B#F(CM):PRINT T$7" "5:G0OSUB1509 


1588 WEWCHI=TE 


Vor dem Rücksprung wird der Wortzähler WC% erhöht, damit beim nächsten 
Durchlauf das nächste Wort in das nächste Tabellenelement abgelegt werden kann. 


15209 WEXI=SUCHHI 
15324 RETURN 


Da wir in dem Unterprogramm den Zwischenspeicher T$ benutzen, können wir ihn 
bei den Tests auf Adverbien und Adjektive in der gleichen Art benutzen. 


318 TA$S=AVSCM):GOSUBIOOA:SPA=1IS%: IF SPX> 
8 THEN T$S=-AVSCM):PRINT T$5" "7:GOSUB15A8 


418 TASFSAITSCM):GOSUBILOH:SPY=IS“S: IF SP%> 
8 THEN T&=-AJ$CM):PRINT T$}" "3:G0OSUB150A 


TEILWEISE ÜBEREINSTIMMUNG 


Ein besonderer Vorteil der “gleitenden Suchmethode” ist die Möglichkeit, eine 
Reihe von aufeinander folgenden Wörtern durch die Überprüfung auf einige Schlüs- 
selzeichen zu erkennen. Dadurch ist es nicht mehr nötig, für Hauptwörter Einzahl 
und Mehrzahl eingeben zu müssen, z. B. BISQUIT und BISQUITS. Wenn Sie die 
DATA-Zeile 11000 folgendermaßen berichtigen, werden beide anerkannt. 


118868 DATA BISQUIT,ZWIEBÄCK „KUCHEN 


Aber auch diese Vorgehensweise kann uns große Überraschungen präsentieren. 
Wenn wir z. B. Kaffee und Kaffees finden wollen, werden uns auch KAFFEESATZ, 
KAFFEESAHNE oder KAFFEETASSE als richtig angegeben. 


Dasselbe Problem haben wir natürlich mit vorangesetzten Zeichen, da der Compu- 
ter z.B. nicht zwischen IMMER und NIMMER unterscheiden kann. Sie sollten 
deshalb in Ihr Programm eine Prüfung einbauen, ob das Zeichen vor dem Beginn 
einer Übereinstimmung ein Leerzeichen war, womit sichergestellt ist, daß es sich 
hier um den Beginn eines Wortes handeit (siehe Ablaufdiagram 3.8). Da SP% die 
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TÜBEREINS 
STIMHUN 





Ablaufdiagramm 3.8 Test ob dies Wortbeginn 


laufende Startposition für das Wort angibt, verweist MID$ (IN$,SP%-1,1) auf das 
unmittelbar davorliegende Zeichen. 


218 TA&=0BSiM):GOSUB 5O08:SPA=1ISA: IF SPA 
=& THEN NEKT M:GOTO 3008 

zii IF MIDSCIN$,SP%-1,1)°>" " THEN NEXT 
M:GOTO 308 

SIE TES=-0OBSCM):PRINT T$" "}:GOSUB 1588 
318 TAS=AYFCM)I:GOSUB 5908:5P4=1S%: IF SP% 
=8 THEN NEXT M:GOTO 468 


311 IF MIDSCIN$,SP%-1,19<°>" " THEN NEXT 
M:GOTO 496 
s3i2 T$=AVS$CM):PRINT T$5" "5:G0SUB 1588 
3208 NEXT M 


4108 TAF=SAJISCM):GOSUB 59998:5P4=1S7: IF SPA 
=8 THEN NEXT M:GOTO 448 

all IF MIDSCINS,SPA-1,19°>" " THEN NEXT 
M :G0OTO 448 

412 TE=AJSCM)I:PRINT T$" "7,:605SUB 1500 


Damit das Ganze auch beim ersten Wort fehlerfrei funktioniert, müssen Sie ein 
Leerzeichen vor den Anfang von IN$ setzen. 


118 IN£=" "+IN$ 
Um die fehlerhaft erkannten Wörter einzuschränken, können Sie Überprüfungen auf 


den nächsten Buchstaben nach der Übereinstimmung oder auf die Länge des 
Wortes durchführen. 
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WIR BRINGEN ALLES IN DIE RICHTIGE REIHENFOLGE 


Wir haben jetzt zwar alle Wörter in dem Satz gefunden, unabhängig davon, wo sie 
gestanden haben und welche anderen Zeichen noch vorhanden waren, aber sie 
sind in der Reihenfolge gespeichert, in der sie in DATA angegeben sind. Der Grund 
dafür ist, daß wir den Vergleich mit dem ersten Element der Objekttabelle begonnen 
haben und nicht mit dem ersten Wort im Satz. Es wäre zu begrüßen, wenn wir die 
Wortspeichertabelle so umarrangieren könnten, daß die darin gespeicherten Wörter 
in der gleichen Reihenfolge wie in dem Originalsatz abgelegt sind. 

Dazu müssen wir uns jeweils die Position des Wortes im Satz SP% und den 
Wortzähler WC% merken, da die Übereinstimmung für jedes Wort in einer neuen 
Wortpositionstabelle WP% abgeprüft wird. Wirtun dies mit einer zweidimensionalen 
Tabelle, in der wir die Satzposition im ersten Element WP (WC%,0) und den 
Wortzähler WP (WC% ‚1) im zweiten Element ablegen. 


18020 DIM WP(13,12 
15198 WP<WCH,BI=SPAIWPCWOCH, LI) =WCH 


Das Unterprogramm zum Neusortieren beginnt bei Zeile 4000 und muß immer dann 
aufgerufen werden, wenn eine Übereinstimmung gefunden wurde. 


448 IF WCH=B THEN 470 

458 GOSUB 4998 

462 GOTO 184 

478 PRINT"KEINE UEBERE INSTIMMUNG GEFUNDE 
N" 

488 GOTO 188 
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Ablaufdiagramm 3.9 Die Worte in richtiger Reihenfolge 
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Das Sortierprogramm (siehe Ablaufdiagramm 3.9) nimmt die Satzposition des 
ersten gefundenen Wortes (erstes Element in der ersten Dimenison WP(0,0)) und 
vergleicht es mit der Satzposition des zweiten gefundenen Wortes (zweites Ele- 
ment in der ersten Dimension WP(0+1,0)). Wenn die Position des ersten Wortes 
größer ist als die des zweiten, dann ist das erste Wort im Satz rechts vom zweiten 
Wort, und beide müssen vertauscht werden. Dies korrigiert die Satzpositionszähler, 
aber die Wortzähler müssen auch noch durch Vertauschen korrigiert werden. Dieser 
Prozeß wird so lange wiederholt, bis alle Satzpositionszähler in aufsteigender 
Reihenfolge sind. Die Tabelle, in der die Wörter abgelegt sind, wird dabei nicht 
geändert. Geändert werden nur die Satzpositionszähler und die Wortzähler. 


40888 FOR N=8 TO LER-2 

4818 IF WP<XN,BISWPSN+I1,8> THEN NEXT N:GO 
TO 4948 

42828 DA=WP<CN,BI:WPSN,„BO>=SWPAN+L,B)SWPAN+I 
‚82 =D% 

438398 DZ=WP{N,LI:EWPCN, 1D=SWPEN+I1,DDEWPCNTI 
‚1? =D%:G60T0498088 


Wenn die Zeichenketten nun entsprechend des revidierten Satzpositionszeigers 
ausgegeben werden, stehen sie in der gleichen Reihenfolge wie im Originalsatz und 
können dadurch sehr leicht wiedererkannt werden. 


4848 PRINT:FOR N=9 TO WCA-1 
4858 PRINT WECWPEN,„ 1397" "5 
4asQ NEXT N:SPRINT 


Alle Elemente der Satzpositionstabelle WP(N,O) und der Wortzähler WC% müssen 
vor einer neuen Eingabe auf 0 gesetzt werden. 


4878 FOR N=8 TOD 13 
4388 WPIN,B)>=O 
4898 NEXT N 

4108 WCA=O 

4118 RETURN 
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KAPITEL 4 


WIR GEBEN ANTWORTEN 


SINNVOLLE ANTWORTEN 


Bis jetzt haben wir uns nur darum gekümmert, Sätze zu decodieren, die in den 
Computer eingegeben wurden. Die Antworten, die er darauf gegeben hat, waren 
jedoch sehr begrenzt und simpel. Obwohl in einer Antwort oft viele der Originalwör- 
ter eines Satzes verwendet werden, wird bei einem wirklichen Dialog das Subjekt 
des Satzes in einer Antwort sinnentsprechend verändert. 

Zum Beispiel wird auf die Eingabe: 


ICH BRAUCHE RUHE 
die bestätigende Antwortet erwartet: 
DU BRAUCHE RUHE 
und entsprechend: 
DU BRAUCHST RUHE 
sollte ergeben: 
ICH BRAUCHST RUHE 


Anmerkung: In der deutschen Sprache genügt das Austauschen des Subjektes 
nicht. 

Wenn Sie diese Situation vom logischen Standpunkt überprüfen, werden Sie 
feststellen, daß es für jedes Eingabesubjekt ein entsprechendes Ausgabesubjekt 
gibt, und wir haben deshalb nur das Originalsubjekt abgetrennt und den Rest des 
Satzes an das entsprechende neue Subjekt angefügt. 

“ICH” besteht aus drei Buchstaben, und wir können deshalb LEFT$(IN$,3) darauf- 
hin abprüfen. Wenn es "ICH” war, können wir “DU” vor dem Rest der Eingabe 
RIGHT$(IN$,LEN(In$)—3) ausgeben. 


18 INPUT INS$ 
s8 IF LEFT$CIN$,3)="ICH" THEN PRINT "DU" 
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+RIGHT#t IN$,LENCINEI-3) 
68 GOTO 18 


In der gleichen Art können wir die ersten zwei Zeichen LEFT$(IN$,2) auf “DU” 
überprüfen und wenn notwendig durch “ICH” ersetzen. 


sg IF LEFT${IN$,2>="DU" THEN PRINT "ICH" 
+RIGHTSC INS ,LENG INS} -23 


Wenn Sie dies mit einer Reihe von Sätzen ausprobieren, wird es bestens funktio- 
nieren, bis Sie z. B. folgenden Satz eingeben: 


ICH BRAUCHE RUHE 
worauf die ziemlich dumme Antwort kommt: 
DU BRAUCHE RUHE 


Aber wir können auch das in den Griff bekommen, indem wir nicht nur auf „ICH” 
und “DU” abprüfen, sondern auch auf “ICH BIN” und “DU BIST”. Die Abprüfung 
darauf muß aber zuerst durchgeführt werden, und am Ende der Zeilen 20 und 40 
muß ein Rücksprung auf die Zeile 10 durchgeführt werden, damit in den Zeilen 30 
und 50 keine Übereinstimmung mit “ICH” oder “DU” gefunden wird. 


28 IF LEFT$<CIN$,7>="ICH BIN" THEN PRINT 
"DU BIST" +RIGHTSS IN$,LENG INS} -73:60T010 
48 IF LEFT$S(CIN$,7)="DU BIST" THEN PRINT 
"ICH BIN" +RIGHT$C INS ,LENSIN$I-79:GOTOLO 


Obwohl diese Methode funktioniert, wird es doch ein sehr umständliches Pro- 
gramm, da wir für jede Möglichkeit eine separate Programmzeile brauchen und die 
Länge des zu suchenden Wortes bzw. Ausdrucks jeweils berücksichtigen müssen. 
Wenn wir den Satz auf viele unterschiedliche Wörter abprüfen müssen, benutzen 
wir besser eine mehrdimensionale Tabelle, die in einer Schleife mit der Eingabe 
verglichen werden kann. 

Am besten benutzen wir dafür eine zweidimensionale Tabelle I0$(n,m) bei der die 
erste Dimension jedes Elements, I0$(n,0), das Eingabewort oder den Eingabeaus- 
druck darstellt, und die zweite Dimension, I0$(n,1), das entsprechende Ausgabe- 
wort bzw. den Ausgabeausdruck enthält. Um Fehler zu vermeiden, legen wir sie 
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paarweise in DATA-Anweisungen ab und lesen sie dann in die Tabelle ein. Mitdem 
folgenden Programm wird die Tabelle angelegt. 


id GOSUB 18092 

18988 DIM 10%<5,1> 

11889 DATA ICH ,DU,DU,ICH,ICH BIN,DU BIST 
‚DU BIST,ICH BIN 

129888 FOR N=8 TO 3 

12818 READ I0$(N,8),1I0Os(N, 1) 

12838 NEKT N 

13808 RETURN 


Stimm 
ES MIT WOoR 
I.FELO 
? 





Ablaufdiagramm 4.1 Gebrauch einer korrespondierenden Antwort 


Wir führen wieder eine gleitende Untersuchung in einer Schleife durch, die im 
Moment nur das entsprechende Wort bzw. den entsprechenden Ausdruck ausgibt 
(siehe Ablaufdiagramm 4.1). Durch die gleitende Überprüfung sind wir in der 
Lage, auch in Ausdrücken eingebettete Leerzeichen zu berücksichtigen, da wir den 
Eingabebereich IN$ nicht vorher in “Wörter” aufgeteilt haben. 


108 INPUT INS 
118 STA=1 

209 FOR M=a TO 3 

212 TA$=I0OsCM,9):G0SUB 35998:SPr.=1ISZ: IF S 
P%>8 THEN PRINT IOSs<M,1) 

BEB NEXT M 

250 GOTO 198 
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Für den späteren Programmablauf ist es jedoch besser, die benötigte Antwort als 
eine neue Zeichenkette R1$ zu definieren und diese vor dem Verlassen der 
Prüfschleife auszugeben. 


218 TA$S=10$(M,B):GOSUB SAU: SPA=ISZ:IF S 
PA>8 THEN R1$8=I10$<M,1) 
238 PRINT RI1$ 


Um eine vollständige und sinnvolle Antwort zu bekommen, müssen wir nur noch 
den Rest des Originalsatzes R2$ unter Verwendung eines Leerzeichens hinten 
anfügen. Es ist nicht schwierig, diesen “Rest des Satzes” zu bekommen. Wir 
müssen nur die Endposition des Wortes (bzw. Ausdrucks) von der Länge des 
Satzes subtrahieren und diesen Wert in RIGHT$ benutzen. SP% gibt uns den 
Anfang des gefundenen Wortes (bzw. Ausdrucks) an, und da wir einen Bereich von 
der Länge dieses Wortes (bzw. Ausdrucks) in der ersten Dimension der Tabelle 
IO$(N,O) haben, brauchen wir nur SP%+LEN(IO$(N,0)) zu subtrahieren. 


219 TA$=-1O$(M,8):GOSUB 5988:5PX%=1S%: IF S 
P7=@ THEN 228 
215 Ri$=10$<(M, I) :R2#=" "+RIGHTSCINS,LENG 
IN$)> - (SPA+LENCIOSCM,83)92) 
238 PRINT Ri$;R2$ 
ICH BIN SCHLAU 
Der Computer wird mit Ihnen übereinstimmen: 
DU BIST SCHLAU 
Wenn Sie jedoch RETURN noch einmal drücken, sagt er Ihnen immer noch, daß Sie 
schlau sind, was aber in diesem Fall bestimmt nicht mehr stimmt, da Sie die 
Bereiche IN$, R1$ und R2$ nicht “geleert” haben, bevor die neue Eingabe 


überprüft wird. 


188 IN$="": INPUT INE 
2a Pis=""ırd$= un 


Bevor Sie sich aber zu schlau vorkommen, versuchen Sie folgendes: 


WIR SIND DUMM 









ÜBERNIMM 
EINGABE 







EIN SPACE 
DAVOR 





SATZES 





Ablaufdiagramm 4.2 Umfangreichere Antwort 


und der Computer wird Sie mit folgender Antwort überraschen: 


ICH M 
Wenn Sie jedoch darüber nachdenken, wird Ihnen auffallen, daß sich eines unserer 
Schlüsselwörter in einem anderen Wort dieses Satzes verbirgt. Wenn es Ihnen 
nicht sofort klar ist, probieren Sie folgendes: 

WIR SIND RICHTIG 
und der Computer wird nur mit 


_ DUIG 


antworten, 
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Obwohl auf jedes Schlüsselwort abgeprüft wird, wird R1$ bei jeder Übereinstim- 
mung neu gesetzt, so daß nur die letzte Übereinstimmung berichtet werden kann. 
Da jedoch der Satz auf jedes Schlüsselwort nur einmal abgeprüft wird, kann uns ein 
verstecktes “ICH” nur Probleme bringen, wenn es nicht das Schlüsselwort dieses 
Satzes ist. 

Um auch mit diesem Problem fertig zu werden, müssen wir uns Gedanken über die 
Schlüsselwörter machen, die uns Probleme bringen können. Obwohl die Buchsta- 
benkombination “ICH” recht oft vorkommt, ist sie jedoch sehr selten am Ende eines 
Wortes, und wir können deshalb abprüfen, ob ein Leerzeichen nach dem Schlüssel- 
wort kommt. Da wir alle Schlüsselworte in der gleichen Art und Weise behandeln 
müssen, erweitern wir alle um ein Leerzeichen. Dies könnten wir durch eine 
Änderung der DATA-Anweisungen erreichen, aber wir sparen Speicherplatz, indem 
wir das Leerzeichen beim Erstellen der Tabellen hinzufügen. Es ist jedoch nicht 
nötig, auch bei den Antworten ein Leerzeichen anzufügen. 


12028 IOS<IN,D2=-10EıN,85+r" " 
Beim Zusammenstellen der endgültigen Antwort R1$ müssen wir auch IN$ um ein 


Zeichen reduzieren, da das Leerzeichen nun ein Teil des Schlüsselwortes gewor- 
den ist. 


215 Ri8=1I0$(M,1):R2$=" "+RIGHTSCINS,LENC 
IN$)-CSPA+LENCIOSCM, O3 >> +1) 


Der Computer wird nun in der Lage sein, auf unsere Eingabe zu antworten. 
Wenn jedoch das erste Schlüsselwort nicht am Anfang des Satzes steht, wird alles 
davor in der Antwort nicht mehr erscheinen. 
Zum Beispie! wird die Frage: 

HABE ICH ZEIT? 
beantwortet mit: 


DU ZEIT? 


Der Computer gibt Ihnen auch sehr seltsame Antworten, wenn zwei echte Schlüs- 
selworte vorhanden sind. 
Die Frage: 


WAS WENN DU UND ICH FALLEN? 
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wird beantwortet mit: 
ICH UND DU FALLEN? 


Aber es ist nicht so schwer, noch einige passende Schlüsselwörter in das Pro- 
gramm einzufügen, und man muß sich damit abfinden, daß einige Kombinationen 
einfach nicht akzeptiert werden. Um die Unterprogramme allgemein benutzen zu 
können, ist es besser, die Anzahl der Schlüsselwörter als Variable KW% zu 
definieren und diese dann anstatt der aktuellen Anzahl zu benutzen. 


id KWA=5:GOSUB 18988 

288 FOR M=8 TO KUk 

18898 DIM IOSCKWA,1? 

11818 DATA WIR,WIR,SIE,SIE 
12089 FOR N=8 TO KUR 


ZEIGEN AUF ANTWORTEN 


Bis jetzt hat der Computer nur wenig mehr Intelligenz als ein Papagei gezeigt, daer 
nur immer eine etwas modifizierte Version des Eingabetextes wiedergegeben hat. 
Wir müssen ihm also noch beibringen, einige logische Entscheidungen aufgrund 
der Eingabe zu machen, bevor er antwortet. 

Die Anzahl der Subjekte SU%, der Verben VB% und der Antworten RP% wird als 
Variable definiert, so daß das Programm leicht erweitert werden kann, und die drei 
entsprechenden Tabellen werden aufbereitet. Da wir ein “Nullelement” in den 
Tabellen haben, sind alle Werte um eins kleiner als die Anzahl der Wörter. Die 
zweidimensionale Tabelle SU$(n,m) ist für die Subjekte in den Ein- und Ausgabe- 
sätzen zuständig. Die erste Dimension (n,0) enthält die in der Eingabe zu erkennen- 
den Subjektworte bzw. Ausdrücke, und die zweite Dimension (n,1) enthält die 
entsprechenden Antworten. Die Tabelle VB$(n) enthält die zulässigen Verben, und 
die Tabelle RP$({n) enthält eine Serie von entsprechenden Antworten. 


18 50OSUB 190098 

19809 SUZ=26:VBA=6:RPX=6 
180819 BIM SUSF<SU4, 1) 
19028 DIM VB&$<(VB) 

18838 DIM RF&(RP%) 
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SUS$(N,O) SU$(N,1) 

ICH HABE DU HAST 
ICH MAG DU MAGST 
ICH BIN DU BIST 

ICH KENNE DU KENNST 
DU HAST ICH HABE 
DU MAGST ICH MAG 

DU BIST ICH BIN 

DU KENNST ICH KENNE 
ICH DU 

SIE HAT SIE HAT 

SIE IST SIE IST 

SIE MAG SIE MAG 

SIE SIE 

SIE WOLLEN SIE WOLLEN 
SIE SIND SIE SIND 

SIE MOEGEN SIE MOEGEN 
ER ER 

ER WILL ER WILL 

ER HAT ER HAT 

ER IST ER IST 

ER MAG ER MAG 

WIR HABEN WIR HABEN 
WIR MOEGEN WIR MOEGEN 
WIR SIND WIR SIND 
WIR WOLLEN WIR WOLLEN 
WIR WIR 

DU ICH 


Tabelle 4.1 Subjektgruppen in SU$(n,m) 


Die ersten beiden DATA-Anweisungen enthalten paarweise gruppiert die Ein- und 
Ausgabesubjekte (siehe Tabelle 4.1), die in die Elemente der entsprechend 
dimensionierten Tabelle SU$(n,m) eingelesen werden. Da die Fürwörter (ICH, SIE, 
usw.) laufend mit anderen Wörtern zu Ausdrücken kombiniert werden (z. B. ICH 
HABE), werden diese Kombinationen ebenfalls in den DATA-Anweisungen ange- 
geben. Sie werden so angegeben, daß die am meisten gebrauchten Kombinationen 
immer zuerst gefunden werden. Am Ende jeden Elementes wird noch ein Leerzei- 
chen hinzugefügt, um teilweise Übereinstimmungen zu verhindern, und in der 
Ausgabe gleichzeitig ein Leerzeichen zu haben. 
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11888 DATA ICH HABE,DU HAST,ICH MAG,DU M 
AGSST,ICH BIN,.DU BIST,ICH KENNE,DU KENNST 


iie18 DATA DU HAST,ICH HABE,DU MAGST, ICH 
MAG,DU BIST,ICH BIN,DU KENNST,ICH KENNE 


119828 DATA ICH,DU,SIE HAT,SIE HAT,SIE IS 
T,SIE IST,SIE MAG,SIE MAG,SIE,SIE 

11838 DATA SIE WOLLEN,SIE WOLLEN,SIE SIN 
D,SIE SIND,SIE MOEGEN,SIE MOEGEN,ER,ER 
11948 DATA ER WILL,ER WILL,ER HAT,ER HAT 
‚ER IST,ER IST,ER MAG,ER MAG 

11858 DATA WIR HABEN,WIR HABEN,WIR MOEGE 
N,WIR MOEGEN,WIR SIND,WIR SIND 

11955 DATA WIR WOLLEN,WIR WOLLEN,WIR WIR 
‚DU,ICH 

12888 FOR N=8 TO SUX 

128168 READ SU$S(N,93,5U$&(N,1) 

12028 SUS(N,8>=SUS<N,DI+" "ISUSCN, 1)=SUE 
£N,id4r ® 

12838 NEXT N 


Die nächste DATA-Anweisung enthält die Hauptverben, die danach in die Tabelle 
VB%$(n) eingelesen werden. 


11968 DATA HASSE,LIEBE,TOETE,MAG NICHT,M 
AG,FUEHLE „WEISS 

128948 FORN=8 TO VBA 

12059 READ YVBSCN) 

12068 NEXT N 


Die letzte Gruppe von DATA-Anweisungen enthält die Antworten, die in die Tabelle 
RP$(n) eingelesen werden, bevor die Programmsteuerung über RETURN zum 
Hauptteil des Programmes zurückkehrt. Um das Programm auf dieser Stufe der 
Entwicklung möglichst einfach zu halten, wird in allen Antworten das Originalverb 
benutzt, obwohl man natürlich auch etwas anderes sagen könnte. 


57 


11878 DATA HASSE DICH WOHL EBENSO ,LIEBE 
DICH AUCH,TOETE DICH 

11888 DATA MAG VIELE DINGE NICHT,MAG CHI 
PS,FUEHLE MICH STARK,WEISS VIELE DINGE 
122878 FORN=8 TO RFPF% 

12088 READ RPE(N) 

12638 NEKT N 

13898 RETURN 


WIR SUCHEN ÜBEREINSTIMMUNGEN 


Zuerst wird die Eingabe mit allen Subjekten in der ersten Dimension von SU$(n,n) 
verglichen (siehe Ablaufdiagramm 4.3). Wenn keine Übereinstimmung gefunden 
wird, wird eine neue Eingabe angefordert. Im Falle einer Übereinstimmung verweist 
die Variable SM% auf das Element, bei dem die Übereinstimmung stattgefunden 
hat. Die Variable IS% wird weiterhin dafür benutzt, die in dem Unterprogramm 
INSTR gefundene Position anzugeben. 


280 FÜR M=6 TO SU 

2ila STA=1: TAS=SUSCM,98):GOSLUB Saad 
e2Bß IF 15%=9 THEN NEXT M:GOTO 189 
238 5MA4=M 


Die Verbentabelle wird nun mit der Eingabe IN$ verglichen. Wenn kein Verb 
gefunden wird, wird die Eingabe zurückgewiesen, im anderen Fall wird die “Verb 
gefunden”-Variable VM% gesetzt. 


248 FOR M=8 TO VB4 

258 TAS=VBSCM)I:GOSUB 59099 

268 IF I5%=8 THEN NEXT M:GOTO 100 
278 VMA=M 
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SETZE 
VERB-PASST 
ZEIGER 


ZUGEHÖRIGE 
SUBJEKT 
ANTWORT 










GIB AUS 
ANTWOR 


Ablaufdiagramm 4.3 Setze Übereinstimmungszeiger 
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WIR GEBEN ANTWORT 


Nachdem Objekt und Verb identifiziert wurden, können wir mit Hilfe von VM% die 
entsprechende Antwort aus der Antwortentabelle RP$(n) heraussuchen. 


588 RLE=RPS&(YM) 


Im einfachsten Fall brauchen wir dem entsprechenden Subjekt nur RL$ anzufügen, 
bevor wir es ausgeben. 


sea RL$=SUESCSMA,O)+RLE 
558 PRINT RL#$ 
568 GOTO 188 
Auf die Eingabe: 
ICH HASSE COMPUTER 
antwortet der Computer dann: 
ICH HASSE DICH WOHL EBENSO 
und: 
ICH WEISS ALLES 
ergibt: 


ICH WEISS VIELE DINGE 


WIR BENUTZEN ALTERNATIVE SUBJEKTE 


Wenn Sie es jedoch bevorzugen, daß die Maschine mit Ihnen übereinstimmt und 
Sie nicht mehr ärgert, dann müssen Sie das zweite Element der Tabelle (das 
Gegenstück) zu RL$ hinzufügen. 


SEO RLE=SUSCSMA, 1) +RLE 


und: 
ICH WEISS EINE MENGE 
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ergibt: 
DU WEISS VIELE DINGE 


Spaßeshalber können Sie auch das erste oder zweite Element ‘Random’ auswäh- 
len, so daß die Antwort nicht mehr voraussagbar ist. 


518 RS%=INT(RNO(C13+.5) 
528 RLE=SUSCSMA,RSTI +RLE 


WIR SETZEN DAS SUBJEKT IN EINEN ZUSAMMENHANG 


Es wäre aber insgesamt sehr viel besser, wenn wir das richtige Subjekt entspre- 
chend des Inhaltes der Antwort auswählen könnten. Dafür ist es notwendig, in der 
Antwortentabelle Markierungen zu setzen. Für die Benutzung des. Wortes in der 
ersten Dimension der Subjekttabelle benutzen wir einen Schrägstrich ‘/’, und für die 
Benutzung des Wortes in der zweiten Dimension benutzen wir ein Sternchen ‘*. 


11870 DATA HASSE DICH WOHL EBENSO ,LIEBE 
DICH AUCH,TOETE DICH 

11888 DATA MAG VIELE DINGE NICHT,MAG CHI 
PS,FUEHLE MICH STARK ,WEISS VIELE DINGE 


Wir können jetzt das benötigte Element der Antwortentabelle RP$, das an der Stelle 
der Verbmarkierung VM% liegt, auf einen Schrägstrich untersuchen. Vor der 
Benutzung des INSTR-Unterprogramms weisen wir der Variablen IN$ den Wert 
dieses Elementes zu. Wenn ein Schrägstrich gefunden wird, wird der Inhalt der 
ersten Dimension der Subjekttabelle SU$(M%,0) der Antwort RL$ (jedoch ohne 
den Schrägstrich) hinzugefügt (siehe Ablaufdiagramm 4.4). 


588 RLE=RPS&(CVYM%) 

518 IN$S=-RLE:STA=1:TAS="/":GOSUB Saan 

s28 IF 18%>8 THEN sad 

888 RLS=SUSCSMI,D)+RIGHTSCRLS.LENCRLSI-1 
> 

sıa GOTO 538 
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FÜGE HINZU 
SUBJEKT IM 
ERSTEN 

FELD 





NIMM HERAUS 
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FÜGE hinzu 
SUBJEKT ıM 
ZWEITEN 

FELD 






NIMM HERAUS 
[ET 





Ablaufdiagramm 4.4 Bringe Subjekt in Verbindung 


Wenn jedoch kein Schrägstrich gefunden wurde, wird in einem zweiten Suchlauf 
der Stern gesucht. Ist die Suche erfolgreich, dann wird die zweite Dimension von 
SU$(SM%,1) in der gleichen Art angefügt. 


338 STAÄ=1:TA$="%":6G0OSUB Saaı 
548 IF I5%>@ THEN 828 
820 RLE=SUECSMZ,1I+RIGHTECRLS,LENCRLEI-1 
a8 GOTO 559 
Nun wird: 
ICH LIEBE MICH 
ergeben: 
ICH LIEBE DICH AUCH 
aber: 
ICH FÜHLE MICH STARK 
ergibt: 


ICH FÜHLE ICH STARK 
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WIR FÜGEN IN SÄTZE EIN 


Zur Vereinfachung fingen unsere Antworten immer mit dem Subjekt an, aber im 
wirklichen Leben ist das nicht immer so. Nachdem wir in unseren Antworten 
Markierungen haben, um anzuzeigen, welches Subjekt hinzugefügt werden muß, 
können wir diese ebenfalls dafür benutzen, um anzuzeigen, wo in der Antwort das 
Wort oder der Ausdruck eingesetzt werden muß. Zuerst müssen wir unsere DATA- 
Anweisung so erweitern, daß das einzufügende Wort (bzw. der Ausdruck) niemals 
am Anfang ist. Dadurch kann der Einfügungsprozeß offensichlich gemacht werden. 











‚SETZE NIMM DRS FÜGE Dazu HÄNGE 

STIMMT- LUNKE ENDE SUBJEKT. DARAN DAS 
ÜBEREIN- DER ANTWOR AUS ERSTEM P] RECHTE ENDE 
ZEIGER'" FELD DER ANTWORT 


























ZEIGER 
ZURÜCK- 
SETZEN 















NIMM LINKES FÜGE DAZU HANGE 
ENDE DER DAS SUBJEKT | DARAN DAS 
ANTWORT Aus DEM RECHTE 
ZWEITEN FELD ANTWORTTEIL 











Ablaufdiagramm 4.5 In einen Satz einfügen 


11878 DATA BEMERKST DU DASS /WOHL EBENSO 
DICH HASSE,GUT /LIEBE DICH AUCH 

11888 DATA WENN /DICH NICHT ERST TOETE,S 
OWAS *MAGST VIELE BINGE NICHT 

118938 DATA NUN LIEBE /CHIPS,WARUM FUEHLS 
T *xDICH STARK ,WIESO WEISST ALLES 


Im Prinzip wissen wir schon, wo das Wort eingefügt werden muß, da wir durch IS% 


wissen, wo der Schrägstrich oder Stern in der Antwort gefunden wurde. Wir müssen 
nur noch den Teil der Antwort vor der Markierung, LEFT$(RL$,IS%-1), nehmen 
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und dazu die korrekte Version von SU$(SM%,n) und den Rest der Antwort 
RIGHT$(RL$,LEN(RL$)-1S%) addieren. 


808 RLS=SLEFTSCRLE, ISA-1L>+SUSCSMZ,O)+RIGH 
TE(RLS,LEN{RLE$}-I15%) 

sıa GOTO 538 

828 RLE=SLEFTSCRLES,ISA-1)+SUS<CSMA, 1) +RIGH 
TE<RLS$,LEN{RLS)I- 15%) 


Jetzt: 
ICH WILL IHN TÖTEN 
ergibt: 
WENN ICH DICH NICHT ERST TÖTE 
und: 
ICH MAG KEINE COMPUTER 
ergibt: 
NUN LIEBE ICH MAG CHIPS 


Obwohl wir das Subjekt jetzt schon sehr viel besser in die Antwortsätze einfügen 
können, arbeiten wir immer nur mit einem Subjekt pro Satz. Eine weitere kleine 
Änderung wird es uns ermöglichen, jede Anzahl von Subjekten in einen Satz 
einzufügen. Wir müssen dazu nur so lange die Markierungen suchen, bis keine 
mehr zu finden sind. In Zeile 500 haben wir eine Startvariable ST% als 1 definiert, 
und danach wird die erste Markierung gesucht. Wenn sie gefunden ist, wird die 
Startvariable ST% auf einem Platz höher als die gefundene Markierung gesetzt. 
Nachdem RL% in Zeile 800 zusammengesetzt worden ist, springen wir zurück in 
Zeile 510, um nach weiteren Markierungen zu suchen. Wenn keine weiteren 
Übereinstimmungen mit der ersten Markierung mehr gefunden werden können, 
wird ST% wieder auf 1 zurückgesetzt. Nach der zweiten Markierung wird dann in 
der gleichen Art gesucht. 


598 RLE3=RP$S(VMA):STA=1 

518 IN$S=RLS$:TAS="/":GOSUB 5009 

528 IF 1I5%>8 THEN ST%=1S%+1:G60T0 800 
s25 STA=1 
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538 IN$S=RLS&$:TA$="*":G0SUB 5098 

548 IF IS%>8 THEN ST7=1I5%4+1:60T0 828 

sıa GOTO 518 

8338 GOTO 538 

11978 DATA BEMERKST DU DASS WOHL EBENSO 
DICH HASSE,GUT /LIEBE DICH AUCH 

11888 DATA WENN “DICH NICHT ERST TOETE 
11885 DATA JAJA /LIEBE CHIPS,/MAG VIELE 
DINGE NICHT BESONDERS DICH 

119898 DATA WARUM FUEHLST DICH STARK ,XxDE 
NKST WEISST ALLES 


Jetzt: 
ICH WEISS ALLES 
ergibt: 
DU DENKST DU WEISST ALLES 
und: 
ICH HASSE COMPUTER 
ergibt: 


BEMERKST DU DASS ICH WOHL EBENSO DICH HASSE 


PROBLEME MIT DEM SUBJEKT 


Alles scheint wunderbar zu gehen, bis Sie folgende Eingabe machen: 
ICH HASSE DICH 

und folgende Antwort erscheint: 
BEMERKST DU DASS ICH WOHL EBENSO DICH HASSE 
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DaS$’Problem ist, daß wir die Suchroutine direkt nach der ersten Übereinstimmung 
verlassen, und obwohl wir das Subjekt “ICH” suchen, wir das Objekt “DICH” 
zuerst finden. Da “DICH” in der Subjekttabelle vor “Ich” kommt, wird es zuerst 
gefunden, obwohl es im Satz in Wirklichkeit später kommt. 

Da wir nicht alle verwickelten Gedankengänge eines menschlichen Gehirns nach- 
vollziehen können, müssen wir aus Gründen der Einfachheit von der Annahme 
ausgehen, daß das Subjekt immer vor dem Verb und das Objekt nach diesem 
kommt. Bis jetzt haben wir in dem Programm das Subjekt vor dem Verb gesucht; 
das müssen wir jetzt in umgekehrter Reihenfolge durchführen. Wenn ein Verb in der 
Eingabe gefunden wird, legen wir seine Position in IS% ab und weisen diesen Wert 
dann dem Verbpositionszeiger VP% zu. 


2088 FOR M=8 TO VBA 

218 STA=1:TAS=VBECM)I:GOSUB 5008 
228 IF 15%=8 THEN NEXT M:GOTO 188 
238 VMA=M:VYPA=1ISA 


Wenn wir nun eine Übereinstimmung mit der Subjekttabelle gefunden haben, 
können wir die Position IS% mit dem Verbpositionszeiger VP% vergleichen und die 
Übereinstimmung zurückweisen, wenn das Subjekt hinter dem Verb positioniert ist 
(siehe Ablaufdiagramm 4.6). 


248 FOR M=d TO SUR 

259 STA=1:TAF=SUSCM,98):6G05SUB 5908 
268 IF 15%=8 THEN NEXT M:GOTO 1098 
E78 IF 15%>VP% THEN NEXT M:GOTO 188 
288 SMA=M 


Wenn Sie keine Lust haben, diese Zeilen neu einzugeben, können Sie mit einer 
Anzahl von Sprüngen das gleiche erreichen. 


148 GOTO 248 

231 G0OTO 588 

271 GOTO 289 

278 VMA=M:VPZ=15% 

225 IF 15%>VPX THEN NEXT M:GOTO 198 
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Ablaufdiagramm 4.6 Abweisen von Objektpaarigkeiten 
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WIR WECHSELN DIE ZEIT 


Um mit der Vergangenheit eines Verbs antworten zu können, fassen wir jeweils die 
Gegenwart und die Vergangenheit eines bestimmten Verbs in einer Zweiergruppe 
zusammen und legen diese dann in DATA-Anweisungen ab. 


GEGENWART VERGANGENHEIT 
HASSE HASSTE 

LIEBE LIEBTE 

TOETE TOETETE 

MAG NICHT MOCHTE NICHT 
MAG MOCHTE 

FUEHLE FUEHLTE 

WEISS WUSSTE 


10000 SUX=26:VB4=13:RPX=6 
11868 DATA HASSE,HASSTE,LIEBE,LIEBTE,TOE 
TE,TOETETE,MAG NICHT ,MOCHTE NICHT 


119865 DATA MAG,MOCHTE ‚FUEHLE ‚FUEHLTE,WEI 
S5 ,LWWSSTE 


Auf die Eingabe: 
ICH HASSTE DICH 
erfolgt die Antwort: 
BEMERKST DU DASS ICH WOHL EBENSO DICH HASSE 


Um jeweils mit der Vergangenheit des Verbs antworten zu können, dividieren wir 
die Verbvariable VM% durch zwei, womit wir die richtige Antwort erhalten. 


2308 YMAÄ=M/2:YPA=15% 


KAPITEL 5 


EXPERTENSYSTEME 


Ein menschlicher Experte ist jemand, der eine Menge über einen bestimmten 
Bereich weiß, und der entsprechende Auskunft darüber geben kann. Die dafür 
notwendigen Kenntnisse können nur nach langer Tätigkeit in diesem Bereich 
erworben werden. Aus diesem Grunde sind wirkliche Experten unglücklicherweise 
sehr, sehr selten. Darüber hinaus sind sie meistens nicht zur Hand, wenn man sie 
zur Lösung eines Problems benötigt. 

Aus diesem Grunde haben sich Wissenschaftler des Problems angenommen, 
Computer-Programme zu erstellen, die die Funktionen solcher menschlichen 
Experten übernehmen können. Solche Programme haben den Vorteil, daß durch 
deren Vervielfältigung unendlich viele Experten produziert werden können, die 
weder Kaffeepausen noch Schlaf noch Gehaltserhöhungen brauchen oder fordern. 
Natürlich kann der Computer nur den vorprogrammierten Instruktionen folgen, die 
ein Programmierer eingegeben hat. Interessanterweise haben Zukunftsroman- 
Autoren das Problem behandelt, wenn ‘Superexperten’ (wie HAL in “2001: Odys- 
see im Weltraum” oder Isaac Asimov’s Positronic Roboter) mit Alternativen kon- 
frontiert waren, die mit ihren primären Anweisungen in Konflikt gerieten, und dabei 
zwar keine Systemzusammenbrüche, jedoch Nervenzusammenbrüche “erlebten”, 
Bevor wir Programme für “Expertensysteme” schreiben können, müssen wir uns 
fragen, wie menschliche Experten arbeiten. 

Lassen Sie uns zuerst die einfache Situation betrachten, in der es die Aufgabe eines 
Experten ist, die Antwort auf ein bekanntes Problem zu finden. 

Zuerst sucht er sich Informationen über diese Aufgabe. 

Danach vergleicht er diese mit den in seinem Gehirn gespeicherten Informationen 
und sucht nach Übereinstimmungen. 

Letztlich berichtete er, ob er eine Übereinstimmung gefunden hat oder nicht. 
Was wir brauchen, ist ein Datenverwaltungsprogramm, das versucht, die Eingabein- 
formation gegen die gespeicherte Information abzuprüfen (siehe Ablaufdiagramm 
5.1). Ein benutzerfreundliches Programm würde natürlich mit der Umgangssprache 
arbeiten, aber aus Gründen der Einfachheit werden wir uns hier mit einer Eingabe in 
einem festen Format begnügen. Als Beginn werden wir versuchen, Tiere an den 
Geräuschen, die sie machen, zu erkennen. Wir erstellen zwei Tabellen: die Frageta- 
belle QU$(n) enthält die bekannten Geräusche, und jedes Element der Antworten- 
tabelle AN$(n) enthält den Namen des entsprechenden Tieres. 
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GIB EIN 
GERÄUSCH 
ALLE 
DURCHSUCH 


GIß AUS 
SCHADE 





Ablaufdiagramm 5.1 Ein einfacher ‘Experte’ 


ıa GOSUB 18998 

18088 DIM QUS(4) ,ANFCH) 

198818 DATA MIAU,KATZE ,WAUWAU, HUND „MUH „KU 
H,HUU „EULE WIEHERN,PFERD 

180828 FOR N=B TO4:READ QUSCN),.ANSCND:NEX 
TN 

188398 RETURN 


Jetzt müssen wir nur noch nach einem Geräusch fragen und es mit dem Inhalt von 
QU$(n) vergleichen. 


EB PRINT "WELCHE GERAEUSCHE MACHT DAS TI 
ER 7?" 

38 INPUT INS 

48 FOR N=8 TO 4: IF INS=QUSCN> THEN 100 
58 NEXT N 

88 PRINT "NA SOWAS, DIESES TIER KENNE IC 
H NICHT.” 

Ta GOTO 28 
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188 PRINT "EIN TIER, DAS ":QUSCNd;" MACH 
T IST EIN "zANS(N) 
118 GOTO 28 


Vielleicht sollten wir schon hier sagen, daß unser Computer-Experte in diesem 
Bereich besser als sein menschlicher Kollege sein kann, da er keine subjektiven 
Urteile abgibt, keine Langeweile bekommt oder vergißt, alle Informationen in 
seinem Gehirn abzuprüfen. Auf der anderen Seite ist es nicht sehr gelehrt, wenn er 
nur antwortet “Ein Eule” usw. (Wir überlassen es Ihnen, eine Routine zu entwik- 
keln, die erkennt, ob es sich um ein männliches, weibliches oder sächliches Objekt 
handelt.) 


WIR LERNEN ZU ENTSCHEIDEN 


Das letzte Beispiel war sehr einfach. Es wurde nur eine Frage gestellt, und es gab 
nur eine mögliche Antwort. In Wirklichkeit müssen wir in der Lage sein, sehr viel 
schwierigere Probleme zu lösen, bei denen die Antwort nicht durch eine Serie von 
Fragen gefunden werden kann. Zum Beispiel, was sollte ein Experte tun, wenn er 
sein Auto starten will, und nichts passiert? 

Es könnte dafür eine Anzahl von Gründen geben: 


LEERE BATTERIE 

BATTERIEKABEL NICHT ANGESCHLOSSEN 
FEHLERHAFTER ZUENDSCHALTER 
FESTGEFRESSENER ANLASSER 
ZERSTOERTER ANLASSER 

ZERSTOERTE ZUENDSPULE 


Um den Fehler zu finden, sollte er mehrere Überprüfungen in einer logischen Folge 
durchführen. Zuerst sollte er überprüfen, ob das Problem ein nicht arbeitender 
Anlasser ist: 


BRENNT ZUENDKONTROLLICHT? (J/N) 
Wenn die Antwort darauf “N” ist, dann liegt keine Spannung am Zündschalter, so 
daß nur eine der drei obigen Fehlermöglichkeiten besteht. Wir können die Anzahl 


der Fehlermöglichkeiten weiter verringern, indem wir herausfinden, ob die Beleuch- 
tung arbeitet: 


BRENNEN LAMPEN RICHTIG? (J/N) 
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Wenn die Antwort “J” ist, kann die Batterie nicht leer sein und muß einwandfrei mit 
dem Lichtschalter verbunden sein. Jetzt kann man davon ausgehen, daß der 
Zündschalter defekt ist, und es ist möglicherweise zu empfehlen, ihn zu ersetzen. 


BAUE DEN ZUENDSCHALTER AUS 
Wenn die Lampen nicht brennen, sollten die Verbindungen überprüft werden. 
SIND BATTERIEKABEL ANGESCHLOSSEN? (J/N) 


Wenn die Antwort “J” ist, dann ist die Batterie leer, und Sie müssen sie laden (oder 
das Auto schieben). 


LADE BATTERIE ODER LASS DICH SCHIEBEN 


In derselben Art und Weise kann man mit einer Folge von Überprüfungen das 
Problem lösen, wenn Spannung da ist, aber der Anlasser nicht funktioniert (die 
letzten drei Möglichkeiten). 


Diese Entscheidungsstruktur läßt sich am einfachsten durch eine Folge von “IF 
THEN”-Tests programmieren (siehe Ablaufdiagramm 5.2). 


18 PRINT "ÜFEHLERDIAGNOSE " 

28 PRINT 

38 PRINT "BRENNT ZUENDKONTROLLICHT CJ/N 
y Fa 

48 INPUT IN$ 

sa IF IN$="J" THEN 180 

68 PRINT "BRENNEN LAMPEN RICHTIG (J/N ? 
7a INPUT INS 

88 IF IN$="N" THEN 118 

98 PRINT "BAUE DEN ZUENDSCHALTER AUS" 
188 INPUT IN$ 

118 PRINT "SIND BATTERIEKABEL ANGESCHLOS 
SEN (J/ND ?" 

120 INPUT"<RETURN>TASTE: "3 T$:RUN 

138 IF IN$="J" THEN 168 

140 PRINT "MACHE BATTERIEKABEL FEST" 
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159 INPUT"<RETURN>TASTE: "7 T$:RUN 
16568 PRINT "LADE BATTERIE ODER LASS DICH 


ANSCHIEBEN” 
178 INPUT"<RETURN>TASTE: "5 TSIRUN 


158 REM --- ETC --- 


Ein solches Programm ist relativ leicht zu schreiben, aber es ist sehr ineffizient, je 
länger und komplizierter es wird. 





Ablaufdiagramm 5.2 Ein sich verzweigender ‘Experte’ 
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WIR SUCHEN EINEN BESSEREN WEG 


Ein sehr viel effizienterer Weg zur Lösung dieses Problems ist es, den Text in 
Tabellen abzulegen, um mit Zeigern zu arbeiten, die Sie zur nächsten Frage oder 
Antwort führen, abhängig davon, ob die Antwort auf die laufende Frage “Ja” oder 
“Nein” war (siehe Ablaufdiagramm 5.3). 









SETZE 
MOMENTANE 
POSITION 
(cp=1) 


GIBAUS 
RESULTAT 


IA 
ZEIGER 
=o 













GIB EIN 
DEINE 


ANWORT 










CP ZEIGT 
AUF 
N (cp) 








CP ZEIGT 
AUF 
y(cr) 






Ablaufdiagramm 5.3 Auf die nächste Antwort zeigend 


Das allgemeine Format zur Beschreibung der Entscheidungspunkte in den DATA- 
Anweisungen ist folgendermaßen: 


(TEXT), (Zeiger für ‘JA’), (Zeiger für ‘NEIN’) 


7a 


Die erste Frage war: 
BRENNT ZUENDKONTROLLICHT? (N)... 1 

Wenn die Antwort “N” war, müssen Sie die zweite Frage stellen: 
BRENNT ZUENDKONTROLLE HELL? (YN)... 2 


Andererseits müssen Sie mit den anderen Teilen Ihrer Fehlerdiagnose fortfahren, 
die wir hier nicht weiter verfolgt haben. Es wäre Frage 7. 

Wir müssen insgesamt drei Tabellen erstellen. OP$(n) enthält den Ausgabetext, 
Y{n) die Zeiger für “Ja” und N(n) die Zeiger für “Nein”. Um eine leichte Änderung 
des Programms zu ermöglichen, benutzen wir die Variable NP für die Anzahl dieser 
Punkte. Die DATA-Anweisungen werden in Dreiergruppen gelesen und jeweils 
eines in jedes Element dieser Tabellen abgelegt. Um das mögliche Ende einer 
Diagnose anzuzeigen, werden die Ja- und Nein-Zeiger auf Null gesetzt. 


18 GOSUB 190898 

190908 NP=7 

18818 DIM OP&<NPI,YCNP>I,NCNP) 

11086 DATA "BRENNT ZUENDKONTROLLICHT",7, 
2 2 

11818 DATA "BRENNEN LAMPEN RICHTIG" ,3,4 
11lB208 DATA "ERSETZE ZUENDSCHALTER"”,8,0 
11836 DATA "BATTERIE RICHTIG ANGESCHLOSS 
EN" ,S,6 

11848 DATA "BATTERIE LADEN ODER SCHIEBEN 
",8,08 

11858 DATA "UEBERPRUEFE BATTERIEVERBINDU 
NG",8,8 

11868 DATA "PROGRAMMERWEITTERUNGEN" ‚4,0 
12888 FOR N=1 TO NP 

12818 READ OP&(iN),Y{CN>,.NIN) 

128208 NEXT N 

13098 RETURN 


Der Programmablauf ist sehr einfach. Mit Hilfe eines Zeigers CP wird auf die 
laufende Position der Tabelle gezeigt; am Anfang enthält er eine 1, und der erste 
Text wird ausgegeben. Wenn wir schon eine Endposition Y(CP)=0O (was ziemlich 
unwahrscheinlich ist) erreicht haben, dann wird CP auf 1 zurückgesetzt, so daß die 
Abfragen wieder neu beginnen können. Wenn jedoch ein realistischer Zeiger 
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vorhanden ist, dann wird die entsprechende Antwort abgefragt. Wenn die Antwort 
“J” ist, wird CP auf den Wert in dem entsprechenden Element der Y(n)-Tabelle 
gesetzt; im anderen Fall bekommt es den Wert der N(n)-Tabelle. 


28 CP=1 

38 PRINT OPS&CCP} 

48 IF Y<iCP>=8 THEN 28 

58 INPUT IN$ 

89 IF IN$="J" THEN CP=Y<CP):GOTO 39 
78 CP=N(CCP) 

SB GOTO 30 


WIR ARBEITEN PARALLEL 


Eine Alternative zu der oben beschriebenen sequentiellen Entscheidungsmethode 
ist die parallele Methode, bei der vor einer Entscheidung erst alle möglichen Fragen 
gestellt werden. Diese Methode dauert im allgemeinen länger, als wenn man einer 
effizienten Baumstruktur folgt, aber die Wahrscheinlichkeit einer korrekten Antwort 
ist hier größer, da keine notwendigen Vergleiche ausgelassen werden. 

Lassen Sie uns überlegen, wie wir zwischen verschiedenen Fortbewegungsformen 
unterscheiden können. 

Wir wollen acht Eigenschaften berücksichtigen, und mit 1 oder 0 ihr Vorhandensein 
oder Nichtvorhandensein bei jeder unserer fünf Transportmöglichkeiten angeben 
(siehe Tabelle 5.1). Bei genauer Betrachtung werden Sie feststellen, daß das 
Ergebnis für alle unterschiedlich ist, so daß es möglich sein muß, zwischen diesen 
zu unterscheiden. 


Fahrrad Auto Eisenbahn Flugzeug Pferd 


Räder 1 1 1 1 0 
Flügel 0 0 0 1 0 
Motor 0 1 1 1 0 
Reifen 1 1 0 1 0 
Schienen 0 0 1 0 0 
Fenster 0 1 1 1 0 
Ketten 1 0 0 0 0 
Lenkrad 1 1 0 1 1 


Tabelle 5.1 An- oder Abwesenheit der Eigenschaften 


76 


Wir geben diese Werte als DATA-Anweisungen ein und speichern sie in eine 
zweidimensionale Tabelle FE(n,n) (die damit dieses Ergebnismuster enthält) und in 
eine Tabelle mit den Namen der Objekte OB$(n). 


18 GOSUB 10880 


19999 
19918 
11909 
11918 
11928 
11839 
11048 
120800 
120168 
12028 
12938 
12848 
13098 


NP =7 

DIM 0B$(5),FE(5,8) 

DATA FAHRRAD,1,8,9,1,98,8, 1,1 
DATA AUTO,1,8,1,1,8,1,0,1 
DATA EISENBAHN, 1,8,1,8,1,1,8,8 
DATA FLUGZEUG,1,1,1,1,8,1,8,1 
DATA PFERD,8,8,0,0,0,8,0,1 
FOR N=1 TO 5 

READ OBS(ND 

FOR M=1 TO 8 

REARD FE<N,M) 

NE#T M,N 

RETURN 


Wir können nun fragen, ob die erste Möglichkeit gegeben ist oder nicht und können 
damit ausdrücken, welche Transportart hier möglich ist (siehe Ablaufdiagramm 


5.4). 


1898 PRINT" HAT ES RAEDER" 

598 INPUT IN$ 

518 AN=1:IF IN$="N" THEN AN=O 

s28 FOR N=1 TO 5 

538 IF FE(CN,1>=AN THEN PRINT OBS(N) 
548 NEXT N:END 


In diesem Fall würde die Antwort “J” folgende Ausgabe ergeben: 


FAHRRAD 


AUTO 


EISENBAHN 
FLUGZEUG 


und die Antwort “N” würde nur folgende Ausgabe ergeben: 


PFERD 


77 






GIB Aus 
DAS 
OBJEKT 






Ablaufdiagramm 5.4 Parallele Annäherung 


Dies zeigt ziemlich klar die möglichen Nachteile der Parallelmethode, obwohl wir 
gerade gezeigt haben, daß nur ein Pferd keine Räder hat. Das Programm erwartet 
jedoch, daß wir noch weitere Fragen stellen, bevor es sich selbst entscheidet. Dies 
ist nicht so dumm, wie es auf den ersten Blick erscheint, da bei der Antwort “J” auf 
die nächste Frage ("Hat es Flügel?”) der Computer logischerweise ablehnt, zu 
glauben, daß es fliegende Pferde gibt. i 
Wenn wir den eigentlichen Vergleichsteil als Unterprogramm schreiben, können wir 
es für die Untersuchung aller acht Möglichkeiten benutzen. Wir müssen einige 
kleine Modifikationen durchführen und einen Tabellenzeiger AP einführen, der bei 
jedem Prüfzyklus hochgezählt wird, um das nächste Element der Eigenschaftsta- 
belle FE(N,AP) abprüfen zu können (siehe Ablaufdiagramm 5.5). 
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ERHÖHE 


Ablaufdiagramm 5.5 Merkmale in Folge untersuchen 


188 
10 
120 
1308 
148 
158 
i68 
178 
188 
1398 


PRINT") HAT ES RAEDER" 
GOSUB 589 

PRINT"HAT ES FLUEGEL" 

GOSUB 509 

PRINT"HAT ES EINEN MOTOR" 
GOSUB 598 

PRINT"HAT ES REIFEN" 

GOSUB 588 

PRINT"BENOETIGT ES SCHIENEN" 
GOSUB 598 
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268 PRINT"HAT ES FENSTER” 

218 GOSUB 508 

228 PRINT"HAT ES EINE KETTE" 

238 GOSUB 509 

248 PRINT"IST ES LENKBAR" 

259 GOSUB 598 

488 PRINT 

418 RUN 

5198 AP=AP+1:AN=1:IF INS="N" THEN AN=9 
538 IF FE<N,AP>=AN THEN PRINT OB$&(N) 
558 RETURN 


WIR ZÄHLEN DIE RICHTIGEN ANTWORTEN 


Das vorherige Programm gibt jeweils für jede Frage eine Liste von Antworten aus, 
aber es kann uns nicht sagen, welche Gruppe von Informationen die gültige 
Gesamtantwort auf alle Fragen ist. Wir können uns jedoch einen “Trefferzähler” 
erstellen, der uns angibt, wie gut unsere Antworten waren. Dazu erstellen wir uns 
eine Erfolgstabelle SU{n) für jedes Objekt, die jeweils bei einer richtigen Antwort 
FE(N,AP)=AN hochgezählt wird (siehe Ablaufdiagramm 5.6). 





GIB AUS 
OBJEKT 


ERHÖHE 
ERFOLGSZAHL 


(su (n)) 









Ablaufdiagramm 5.6 Erfolg zählen 
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2868 PRINT 

278 PRINT"PUNKTZAHL” 

288 FRINT 

388 FOR N=1 TO 5 

318 PRINT OBS$(N) „SUN? 

3208 NEXT N 

538 IF FE<N,AP)=AN THEN PRINT OBFCN):TSUC 
NI=SSUCN> +1 

18810 DIM SU<S5) 


Wenn wir eine vollkommene Übereinstimmung erreicht haben, wird der Erfolgszäh- 
ler SU(n) gleich 8 sein. Wenn einer oder mehrere Punkte nicht korrekt waren, wird 
der Zähler entsprechend verringert. Diese Art des Zählens ist besonders nützlich, 
wenn die korrekte Antwort auf die Fragen mehr eine Sache der Einstellung als der 
wirklichen Tatsachen ist (z.B. ist ein Pferd wirklich steuerbar?). Die höchste 
erreichte Punktzahl zeigt wahrscheinlich sowieso auf die richtige Antwort, voraus- 
gesetzt, daß eine gleichmäßige Gewichtung auf jede richtige Antwort erfolg. 


WIR BENUTZTEN JETZT BITS 


Es wird Ihnen bestimmt aufgefallen sein, daß wir gerade acht Eigenschaften zum 
Vergleich benutzt haben. Dies war beabsichtigt, weil acht Bits ein Byte ergeben. 
Wenn wir davon ausgehen, daß jede Möglichkeit durch ein Bit repräsentiert wird 
(siehe Tabelle 5.2), anstatt dafür einen absoluten Wert zu benutzen, dann kann 
jedes Objekt anstelle von acht separaten Werten durch eine einzelne Dezimalzahl, 
bestehend aus der Summe der Bits, beschrieben werden. Bei der Umrechnung in 
Dezimalzahlen beginnen wir mit dem niedrigstwertigen Bit in der obersten Reihe bei 
“Räder”. Die einzelnen Möglichkeiten werden dann von oben nach unten mit den 
Werten von 1, 2, 4, 8 bis 128 dezimal dargestellt. 
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GIB EIN 
MERHAL 


NEIN 


ERGEBNIS= 
ERGEBNIS+ 


BINÄRER 
WERT 





Ablaufdiagramm 5.7 Binäres Ergebnis erzeugen 
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Fahrrad Auto Eisenbahn Flugzeug Pferd 





Räder 1 1 1 1 0 
Flügel 0 0 0 2 0 
Motor 0 4 4 4 0 
Reifen 8 8 0 8 0 
Schienen 0 0 16 0 0 
Fenster 0 32 32 32 0 
Ketten 64 0 0 0 0 
Lenkrad 128 128 0 128 128 
Summe 201 173 53 175 128 


Tabelle 5.2 Binär gewichtete Eigenschaften 


Es ist nicht sehr schwierig, unsere Punktzahl zu berechnen. Der Dezimalwert 
unserer Binärzahl BV verdoppelt sich bei jedem Schritt nach unten, und wir müssen 
den Wert bei jedem "Ja”-Fall zur Gesamtpunktzahl addieren (AN=1, siehe Ablauf- 
diagramm 5.7). 

Wir brauchen nur die Punktzahl SU durch Addieren der Werte in jedem “Ja”-Fall zu 
aktualisieren. Es ist dazu nicht notwendig, jedesmal jedes Tabellenelement zu 
überprüfen oder sogar eine zweidimensionale Tabelle anzulegen. Die einzigen 
DATA, die wir benötigen, sind die Gesamtdezimalwerte jedes Objektes DV(n). 
Nachdem alle Fragen gestellt worden sind, überprüfen wir diese gegen den 
Dezimalwert aus den "Ja/Nein“-Anworten SU (siehe Ablaufdiagramm 5.8). Das 
beste ist, Sie löschen alles nach der Programmzeile 260 und beginnen vollkommen 
neu. 


268 PRINT 
278 PRINT "PUNKTZAHL”3SU:GOSUB22U98 

288 PRINT 

30@ FOR N=1 TO 5 

318 IF DV<N)=SU THEN PRINT,OB$(CN):GOTO 4 
2) 

328 NEXT N 

338 PRINT,"KEIN OBJEKT GEFUNDEN" 

488 PRINT 

418 RUN 

598 INPUT IN# 

518 AN=I:IF IN$="N" THEN AN=B 

528 IF AN=1 THEN SU=SU+BYV 
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538 BV=BV+rBV 
548 RETURN 


12998 DIM OB&<S5),DV(5) 
180818 BV=1 

11889 DATA FAHRRAD ,201 
11819 DATA AUTO,173 
11828 DATA EISENBAHN,S3 
11839 DATA FLUGZEUG, 175 
11848 DATA PFERD,128 
12988 FOR N=1 TO 5 
12810 READ OB&<N?,DVCND 
12828 NEXT N 

13888 RETURN 






GIB AUS 
ERGEBNIS 


Ablaufdiagramm 5.8 Auf dezimale Werte untersuchen 


Diese Vorgehensweise erspart uns bestimmt eine Menge Speicherplatz und Zeit, 
da jedes Tabellenelement mehrere Bytes benötigt und vor dem Vergleichen erst 
gesucht werden muß, Sie ist also besonders sinnvoll, wenn man große Informa- 
tionsmengen bearbeiten muß. Andererseits müssen Sie jedoch alle Dezimalwerte 
des Bit-Musters berechnen, bevor Sie sie benutzen können, und es gibt Ihnen 
keinen Hinweis, wenn keine komplette Übereinstimmung gefunden ist. Sie können 
nicht einfach den Dezimalwert übernehmen, der am nächsten ist, da der Wert jeder 
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richtigen Antwort nur von seiner Position in der Tabelle abhängt. Natürlich können 
Sie die Berechnungen selbst machen, aber Sie können es auch dem Computer 
überlassen. Wenn Sie das Bit-Muster als eine Zeichenkette I$ eingeben, ist es 
relativ einfach, den Dezimalwert DV auszurechnen. Sie müssen nur jedes einzelne 
Zeichenscheibchen MID$(I$,N,1) mit “1” vergleichen und bei Übereinstimmung 
den Wert der Variablen BD addieren. 


280908 BD=1:INPUT Is 

28818 FOR N=1 TO 8 

28920 IF MIDSCIS$S,N,1)="1" THEN DV=DV+BD 
220398 BD=BD+BD 

20848 NEXT N 

28858 PRINT DV 

28068 RUN: 
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KAPITEL 6 


DAS “EXPERTENSYSTEM” 
LERNT VON SICH SELBST 


Obwohl die bis jetzt beschriebenen Expertensysteme einwandfrei arbeiten, sind sie 
Immer noch davon abhängig, daß Sie Ihnen als Basis Ihrer Entscheidungen die 
korrekten Regeln im voraus mitteilen. Das macht das Ganze natürlich sehr um- 
ständlich. 

Es ist jedoch möglich, ein Expertenprogramm zu erstellen, das von seinen eigenen 
Fehlern lernen kann und seine eigenen Entscheidungsregeln erstellt. Vorausset- 
zung ist, daß Sie ihm mitteilen können, wann (aber nicht unbedingt wo) es sich 
falsch verhält. Dies ist natürlich ein ganz erheblicher Vorteil, insbesondere in den 
Fällen, in denen Sie sich selbst nicht sicher über die korrekten Regeln sind. Dazu 
beginnen wir mit einer Gruppe von Eigenschaften, die uns erlauben, zwischen 
verschiedenen Objekten zu unterscheiden, jedoch ohne bereits die “Ja/Nein- 
Regeln" für diese Eigenschaften festzulegen. Wir benutzen das Programm, um 
diese Entscheidungsregeln festzulegen. 

Wir arbeiten wieder mit dem uns bereits bekannten Transportproblem und definie- 
ren uns am Anfang einige Variablen. FE% ist die Anzahl der zu berücksichtigenden 
Eigenschaften (8), FE$(n) ist eine Tabelle mit den Namen dieser Eigenschaften, 
FV(n) ist eine Tabelle, die die Entscheidungswerte (0 oder 1) für jede Eigenschaft 
als Eingabe für jeden Entscheidungsfall enthalten wird, und RU(n) ist eine Tabelle, 
die die Summe sämtlicher Entscheidungswerte einer Entscheidungsregel für jede 
Eigenschaft enthalten wird. 


18 GOSUB 18008 

18000 FEA=3 

1089818 DIM FES<FE%) ,FYVCFEX) „RUCFEX) 

iBg28 FOR N=1 TO FEX 

189308 READ FES&(N) 

1228498 NEXT N 

1:888 DATA RAEDER ,FLUEGEL ‚MOTOR ,‚REIFEN,S 
CHIENEN,FENSTER ,KETTEN,STEUERBAR 

12889 RETURN 


Jede Eigenschaft wird hierbei in Betracht gezogen (siehe Ablaufdiagramm 6.1). 
Zuerst wird der laufende Eigenschaftswert FV{n) für diesen Zyklus auf Null gesetzt, 
und danach wird für jeden Entscheidungspunkt vom Benutzer eine "Ja/Nein”- 
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Eingabe IN$ abgefragt. Wenn IN$ “Ja” ist, wird das Eigenschaftswertelement FV(n) 
auf 1 gesetzt; anderenfalis verbleibt es 0. Dadurch ergibt sich ein Muster, das das 
Objekt in der Tabelle FV(n) durch “0” und "1" beschreibt. 


GIB EIN 
MERKMALE 
JA 





NOMENTAN 
MERKHAL 
Bl WERT =1 # 


ENSCHEIDUNG 
WERT=Q 
GIB Aus [ Ja AKTUALISIER 
ENTSCHEI - ENTSCHEI- 
DUNGS- DUNGS- 
WERT WERT 


NEI N 


1 
> ? 









2 £ ao GIB AUS | 
en TABEULE TABELLE 
Ablaufdiagramm 6.1 Lernen zwischen 2 Objekten zu unterscheiden 


68 FOR N=1 TO FER 
ro FVIiN>=8 
88 PRINT FES(N?F" "5 
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932 GET IN$S:IF IN$S="" THEN 38 
189 PRINT IN$ 

118 IF IN$="J" THEN FVcnN>=s1 
128 NEXT N 


Bevor Sie starten, wird die Entscheidungsvariable DE% auf O gesetzt. Sie wird in 
einer Schleife jedesmal neu aus ihrem laufenden Wert plus jedem der eingegebe- 
nen Eigenschaftswerte FV(n), multipliziert mit dem jeweiligen Wert der Entschei- 
dungsrege! RU(n) berechnet. 


125 DEA=8 

138 FOR N=i TO FEX 

158 DEA=DEH+FVCNIHRUCNI 
168 NEXT N 

178 PRINT "DE7=":DER 


WAS IST WAS? 


Am Anfang betrachten wir eine sehr einfache Situation, bei der wir nur zwischen 
zwei Möglichkeiten auswählen, einem Fahrrad oder einem Auto. Wir beginnen 
damit, daß wir eine ziemlich willkürliche Entscheidung zwischen diesen beiden 
treffen. Wenn der Endwert DE% gleich oder größer als Null ist, dann ist es ein Auto. 
Es macht nichts aus, ob diese Annahme wirklich wahr ist, da sich unser System 
selbst korrigieren wird. Wenn das Programm, basierend auf dem Wert von DE%, 
eine Entscheidung getroffen hat, fragt es den Benutzer um Zustimmung oder 
Ablehnung dieser Entscheidung. 


ıisa IF DEX>=8 THEN PRINT"IST ES EIN FAHR 
RAD "7:INPUT IN$S:GOTO288 

19398 IF DEX<B THEN PRINT"IST ES EIN AUTO 
"3:INPUT IN$S:GOTO 228 


Abhängig von der Entscheidung des Computers sind drei verschiedene Reaktionen 
möglich. Bei korrekter Entscheidung ist keine Reaktion notwendig (die Gewich- 
tungsvariable WT% wird 0 gesetzt), und das Programm springt für einen weiteren 
Versuch zurück. Wenn DE% >=0 war, aber der Computer unrecht hatte, dann wird 
die Gewichtungsvariable WT% auf minus eins gesetzt, während im letzten Fall, 
wenn DE% < 0 war und der Computer unrecht hatte, wird WT% auf plus eins 
gesetzt. 


288 IF INS="J" THEN WTX=9:6G0T0248 
219 WT@=-1:G0T0 249 

228 IF INS="J" THEN WTZ2=8:G60T0248 
2398 WTA=1 


Mit der Gewichtungsvariablen werden dann die Werte der Regeltabelle RU(n) 
modifiziert. Wenn sie zu hoch waren, werden sie erniedrigt, und wenn sie zu niedrig 
waren, werden sie erhöht. 


248 FOR N=1 TO FEA 

258 RU<N?=RUCNI+FY<CNDAWTA 
268 PRINT RU<ND, 

278 NEXT N 

288 PRINT 

238 GOTO 68 


An dem folgenden Beispiel kann man diese Vorgehensweise sehr gut erkennen. 
Starten Sie das Programm durch RUN und geben dann die folgenden Eingaben ein. 
(Um das gewünschte Bildschirmformat zu erreichen, geben Sie bitte alle Eingaben 
in der angegebenen Weise korrekt ein.) 

Zuerst geben Sie bitte folgende Werte ein: 


RÄDER J FLÜGEL N MOTOR N REIFEN J 
SCHIENEN N FENSTER N KETTEN J STEUERBAR J 


Das Programm wird mit einem Entscheidungswert DE% = Null antworten, da dies 
der Anfangswert ist, und bis jetzt keine Modifizierungen durchgeführt wurden: 


DE%=0 


Da DE% 0 ist, geht das System davon aus, daß es sich um ein Fahrrad handelt und 
bittet um Bestätigung, die natürlich mit “Ja” gegeben wird. 


IST ES EIN FAHRRAD ? J 
Der Ausdruck der Regeltabelle RU(n) bestätigt uns, daß sich keine Änderungen von 


0 bis 1 ergeben haben, da die richtige Antwort direkt durch reinen Zufall erreicht 
wurde: 
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0 0 0 0 
0 0 0 0 


Nun versuchen Sie bitte folgende Eingabe, die ein Auto beschreibt: 


RÄDER J FLÜGEL N MOTOR J REIFEN J 
SCHIENEN N FENSTER J KETTEN N STEUERBAR J 


DE% ist immer noch Null, so daß die falsche Folgerung gezogen und damit die 
falsche Frage gefragt wird, auf die die Antwort natürlich “N” sein muß: 


DE%=0 
IST ES EIN FAHRRAD ? N 


Da ein Fehler gemacht wurde, wird die Entscheidungsregel durch Subtraktion einer 
Eins von allen Werten der Entscheidungstabelle, in der eine “Ja”-Antwort gegeben 
worden war, modifiziert. Die Regeltabelle sieht jetzt folgendermaßen aus: 


-1 0 -1 -1 
0 1 0 -1 


Wenn Sie jetzt die ein Auto beschreibenden Werte noch einmal eingeben, wird das 
Programm korrekt antworten: 


RÄDER J FLÜGEL N MOTOR J REIFEN J 
SCHIENEN N FENSTER J KETTEN N STEUERBAR J 
DE%=-5 


IST ES EIN AUTO ? J 


1 0 -1 1 
-1 0 1 


Bevor Sie von sich selbst zu sehr überzeugt sind, versuchen Sie es noch einmal mit 
den Werten für ein Fahrrad, und das Ergebnis wird wieder falsch sein! 


RÄDER J FLÜGELN MOTOR N REIFEN J 
SCHIENEN N FENSTER N KETTEN J STEUERBAR J 
DE%=-3 


ISTES EIN AUTO ? N 
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0 0 1 0 
0 1 1 0 


Die für das Fahrrad und das Auto übereinstimmenden Eigenschaften sind jedoch 
um Eins hochgezählt worden, so daß bei der nächsten Wiederholung die korrekte 
Entscheidung getroffen werden kann: 


RÄDER J FLÜGEL N MOTOR N REIFEN J 
SCHIENEN N FENSTER N KETTEN J STEUERBAR J 
DE%=1 


IST ES EIN FAHRRAD ? J 


0 0 1 0 
0 1 1 0 


Die Situation hat sich nun stabilisiert, und das Programm wird nun immer in der Lage 
sein, bei entsprechender Eingabe zwischen einem Auto und einem Fahrrad zu 
unterscheiden: 


RÄDER J FLÜGEL N MOTOR J REIFEN J 
SCHIENEN N FENSTER J KETTEN N STEUERBAR J 
DE%=-2 


IST ES EIN AUTO ? J 


0 0 1 0 
0 1 1 0 


Der endgültige Wert von DE% für ein Fahrrad ist 1 und der für ein Auto —2. 
Bei Betrachtung der Regeltabellenwerte werden Sie feststellen, daß diese sowohl 


vom Wert als auch von der Position mit den die Objekte unterscheidenden Eigen- 
schaften korrespondieren (Ketten für Fahrrad und Motor und Fenster für Auto). 


WIR ERWEITERN UNSER SPEKTRUM 


Obwohl Sie es nun geschafft haben, Ihren Computer etwas zu lehren, ist es wirklich 
nicht sehr weltbewegend, nur zwischen zwei Objekten unterscheiden zu können. 
Lassen Sie uns das Programm zur Bearbeitung eines weiteren Spektrums von 
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Ablaufdiagramm 6.2 Weiteres Spektrum mit Tabellen 
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Möglichkeiten erweitern (siehe Ablaufdiagramm 6.2). Am Anfang müssen wir uns 
die Anzahl der zu erkennenden Objekte OB% definieren, ihre Namen in DATA- 
Anweisungen festlegen, die wir später in eine neue Tabelle OB$(OB%) ändern, 
damit die Regeln für jedes Objekt getrennt abgelegt werden können, und eine 
Entscheidungstabelle DE(n) zum Ablegen der Entscheidungswerte für jedes Objekt 
erstellen. 


18 GOSUB 10898 

10098 FE4=8:0B%=5 

189818 DIM FES<CFEX) ,FVCFER) ,RUCFEX,0B%),0 
B$(0BX) ‚DE<(0B%) 

18028 FOR N=i TO FE% 

10830 READ FES(N) 

108948 NEXT N 

16958 FOR N=1 TO 06% 

18060 READ OB$(N) 

10078 NEXT N 

11894 DATA RAEDER ‚FLUEGEL ‚MOTOR ‚REIFEN,S 
CHIENEN,FENSTER ‚KETTEN,STEUERBAR 

11B19 DATA FAHRRAD ,AUTO,TRAIN,FLUGZEUG,P 
FERD 

12888 RETURN 


Es reicht hier nicht mehr aus, mit einer einfachen Entscheidungsvariablen DE% zu 
arbeiten. Wir müssen den Entscheidungswert vielmehr für jedes Objekt zu jeder 
Zeit bestimmen. In jedem Zyklus müssen wir deshalb zuerst DE% auf Null setzen 
und dann jedes Element der Entscheidungstabelle DE(n) ebenfalls auf Null setzen, 
so daß wir für jedes Objekt mit einem “sauberen” Status starten können. 


ed DEr=8 

38 FOR N=i1 TO 0B#% 
49 DE<IN)=B 

S8 NEXT N 


Die Werte für jede Eigenschaft werden dann in der bekannten Art und Weise wie 
zuvor eingegeben. 


68 FOR N=1 TO FEA 


78 FY<ND=D 
88 PRINT FE$NDdS" "3 
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98 GET IN$:IF IN$="" THEN 98 
188 PRINT IN$ 

118 IF IN$="1" THEN FVcn)=i 
128 NEXT N 


Jedes Element der Entscheidungstabelle DE(n) wird nun entsprechend des Status’ 
der eingegebenen Werte FV(n) und des Inhalts des entsprechenden Regeltabellen- 
elementes RU(n,m) geändert. 


138 FOR N=1 TO FE 

148 FOR M=1 TO 0B% 

158 DE<M>=DE (MI +FVCNDKRUCN, MI 
168 NEXT M,N 


Jetzt brauchen wir nur noch zu überprüfen, ob irgendeiner der Entscheidungswerte 
für irgendeines der Objekte DE(n) größer oder gleich dem Entscheidungswert DE% 
ist. In diesem Fall setzen wir eine “Höchstpunkt"-Variable TS% gleich der Zahl des 
Objektes, das diese Entscheidung verursacht hat. 


ıi7a FOR N=i TO 08% 
188 IF DE<N>>=DEX THEN DEX=DE (N): TSA=N 
198 NEXT N 


Das System nimmt nun an, daß dies die korrekte Antwort ist, fragt wieder um 
Bestätigung und kehrt ohne jede Änderung zum Programmanfang zurück, wenn die 
Antwort korrekt war. 


288 PRINT "KANN ES EIN "7OBS(CTS%)r" SEIN 
218 GET IN$S:IF IN$="" THEN 218 

215 PRINT INS 

e28 IF IN$S="J" THEN 29 


War die Antwort nicht korrekt, werden die Namen und Nummern aller Objekte 
ausgedruckt, und Sie werden nach der Nummer der korrekten Antwort CR% 
gefragt. Um den Abbruch des Programms durch die Eingabe eines nicht erlaubten 
Wertes für CR% zu verhindern, wird darauf im Programm besonders abgefragt. 


238 FOR N=i TO 0B% 

248 PRINT N,OB&{ND 

259 NEXT N 

E68 PRINT "WAS WÄR ES"; 

2798 GET CRÜ:IFÜERA<I1 OR CRA>S THEN 278 
275 PRINT CR% 


Danach wird abgeprüft, ob der Entscheidungswert für jedes Objekt DE(n) größer 
oder gleich dem allgemeinen Entscheidungswert DE% ist, und ob das in Betracht 
gezogene Objekt nicht die korrekte Antwort ist. Wenn diese beiden Bedingungen 
zutreffen, werden die Regeln wieder durch Subtraktion der Werte für die korrekten 
Eigenschaften FV(n) zum Vorteil der korrekten Antwort korrigiert. 


288 FOR N=1 TO 05% 

298 PRINT DE<N),DEA,CRA 

308 IF DEN? >=DEA AND N<>CRZ THEN FOR M= 
1 TO FEZIRUCM,N>=SRUCM,N>-FVCMIINEKT M 
318 NEXT N 


Danach werden die Werte der korrekten Eigenschaften FV(n) zu denen der korrek- 
ten Objekte der Regeltabelle addiert. 


328 FOR M=1 TO FE%S 
338 RU<M.CRA>I=RUCM,CRAI +FVCMI 
348 NEXT M 


Zum Abschluß wird der Status der Regeltabelle ausgedruckt, so daß Sie sehen 
können, welche Änderungen sich ergeben haben. 


358 FOR M=1 TO 0B% 
368 FOR N=1 TO FE% 
378 PRINT RUCN,M?F 
388 NEXT N 

3308 PRINT 

488 NEXT M 

418 GOTO 28 


Auch in diesem Fall erklärt ein Beispiel mehr als viele Wörter. Überprüfen Sie bitte 
selbst, was bei der Eingabe der nächsten Folge passiert: 
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RÄDER J 


SCHIENEN N 


FLÜGEL N 
FENSTER N 


MOTOR N 
KETTEN J 


REIFEN J 
STEUERBAR J 


Das Programm wird mit der fehlerhaften Annahme, daß es sich um ein Pferd 
handelt, zurückkommen. Sie müssen ihm nun sagen, daß diese Annahme fehlerhaft 
ist und es darauf hinweisen, was die korrekte Antwort gewesen wäre: 


KANN ES EIN PFERD SEIN 


VPODN— 


FAHRRAD 
AUTO 
EISENBAHN 
FLUGZEUG 
PFERD 


WAS WAR ES 1 


Die Stati der verschiedenen Entscheidungs- und Regeltabellen werden nun zu Ihrer 
information ausgedruckt. (Beachten Sie bitte, daß die hier zu Ihrer Information 
angegebenen Variablen-Namen auf dem Bildschirm nicht erscheinen.) 


DE(N) 
0 


0 
0 
0 
0 


1 
-1 
-1 
-1 
1 


A 


ooOoo0o00o0 


B 


(A=Räder 


E=Schienen 


oOoOOO000 


DE% 


oOoOO000 


1 
_1 
1 
1 
-1 


oOO0O000 


D E 


B=Flügel 
F=Fenster 


oOoOoOo00 


CR% 
1 
1 
1 
4 
1 
1 1 (Fahrrad) 
—1 —1 (Auto) 
—1 —1 (Eisenbahn) 
—1 1 (Flugzeug) 
1 —1 (Pferd) 
G H 
C=Motor D=Reifen 
G=Ketten H=steuerbar) 
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Bei genauer Betrachtung werden Sie feststellen, daß einige Eigenschaften Ände- 
rungen in den Regeltabellen verursacht haben. Es handelt sich hier um die 
Eigenschaften “Räder”, “Reifen”, “Ketten” und “steuerbar” — alles Eigenschaf- 
ten, die wir als die eines Fahrrades definiert haben, und die es natürlich nicht bei 
einem Pferd gibt. Sie werden auch feststellen, daß die Werte dieser Eigenschaften 
in der Fahrradzeile nun alle plus eins sind, während die Werte dieser Eigenschaften 
für alle anderen Objekte minus eins sind. 

Als nächstes wollen wir die Eigenschaften eines Autos eingeben, von dem der 
Computer annimmt, daß es ein Fahrrad ist und ihn dann entsprechend korrigieren. 
Beachten Sie, daß die Regeltabellen für Fahrrad und Auto entsprechend der neuen 
Information geändert werden. 


RÄDER J FLÜGEL N MOTOR J REIFEN J 
SCHIENEN N FENSTER J KETTENN STEUERBAR J 


KANN ES EIN FAHRRAD SEIN N 


FAHRRAD 
AUTO 
EISENBAHN 
FLUGZEUG 
PFERD 


ron -— 


WAS WAR ES 2 


3 3 2 
-3 3 2 
—3 3 2 
-3 3 2 
—3 3 2 
0 0 —1 0 0 1 1 0 (Fahrrad) 
0 0 1 0 0 1 -1 0 (Auto) 
1 0 0 -1 0 0 -1 —1 (Eisenbahn) 
—1 0 0 -1 0 0 -1 —1 (Flugzeug) 
—1 0 0 -1 0 0 —-1 —1 (Pferd) 
A B 6 D E F G H 
(A=Räder B=Flügel C=Motor D=Reifen 
E=Schienen F=Fenster G=Ketten H=steuerbar) 
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Beim nächsten Mal definieren wir ein Flugzeug, und das Programm entscheidet sich 
für ein Auto, wonach wir wieder korrigieren. 


RÄDER J FLÜGEL J MOTOR J REIFEN J 
SCHIENEN N FENSTER J KETTEN N STEUERBAR J 


KANN ES EIN AUTO SEIN N 


FAHRRAD 
AUTO 
EISENBAHN 
FLUGZEUG 
PFERD 


raoan-— 


WAS WAR ES 4 


Und nun versuchen wir es mit einer Eisenbahn, die es immer noch nicht richtig 
findet! 


RÄDER J FLÜGEL N MOTOR J REIFEN N 
SCHIENEN N FENSTER J KETTEN N STEUERBAR N 


KANN ES EIN FLUGZEUG SEIN N 


1 FAHRRAD 

2 AUTO 

3 EISENBAHN 
4 FLUGZEUG 
5 PFERD 


WAS WAR ES 3 
Und am Ende ein Pferd, das als Flugzeug erkannt wird! 


RÄDER N FLÜGEL N MOTOR N REIFEN N 
SCHIENEN N FENSTER N KETTENN STEUERBAR J 


KANN ES EIN FLUGZEUG SEIN N 


1 FAHRRAD 
2 AUTO 


3 EISENBAHN 
4 FLUGZEUG 
5 PFERD 


WAS WAR ES5 


Wenn Sie Ihren Experten weiterhin mit Informationen füttern, wird er am Ende in der 
Lage sein, jedesmal die richtige Antwort zu geben. Wie lange dies dauert, hängt 
davon ab, wie unterschiedlich die einzelnen Objekte sind, und in welcher Reihen- 
folge die Objekte dem Expertensystem präsentiert werden. 

Bei unglücklichen Kombinationen kann es sehr lange dauern, bis das Expertensy- 
stem unfehlbar wird. Mit der folgenden Sequenz hat das Programm alle Regeln 
gelernt und war danach in der Lage, jede Entscheidung richtig zu treffen. 


Flugzeug (Eisenbahn) Auto (Flugzeug) Fahrrad (JA) 
Auto (JA) Flugzeug (Auto) Flugzeug (JA) 
Pferd (JA) Flugzeug (Fahrrad) Auto (Flugzeug) 
Flugzeug (Auto) Flugzeug (Auto) Auto (Flugzeug) 
Auto (JA) Flugzeug (Auto) Flugzeug (JA) 
Auto (JA) Flugzeug (JA) Pferd (JA) 
Fahrrad (JA) Eisenbahn (Auto) Eisenbahn (JA) 
Fahrrad (JA) Auto (Flugzeug) Auto (JA) 
Flugzeug (Auto) Flugzeug (JA) Auto (Flugzeug) 
Auto (JA) Fiugzeug (JA) Auto (JA) 
Fahrrad (Auto) Auto (JA) Flugzeug (JA) 
Eisenbahn (JA) Pferd (JA) Fahrrad (JA) 


Wenn Sie den endgültigen Status der Regeltabelle nach diesem Stand sehen 
wollen, stoppen Sie das Programm und geben Sie GOTO 350 als direktes Kom- 
mando ein. Wie Sie sehen, reicht die Skala der Werte von +6 bis —2. Es ist also 
nicht erstaunlich, daß es so lange gedauert hat, bis das Programm diesen Status 
erreicht hat. 


1 0 -1 1 2 3 0 (Fahrrad) 
—1 4 1 0 —1 1-2 0 (Auto) 

0 —1 1-2 2 1-1 -2 (Eisenbahn) 
-2 6 0 0 —1 0-2 —2 (Flugzeug) 
1 0 0 -1 0 -1 0 (Pferd) 

A B C D E F G H 
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(A=Räder B=Flügel C=Motor D=Reifen 
E=Schienen F=Fenster G=Kette H=steuerbar) 


In der Praxis wird man natürlich solch ein Expertensystem nicht im Rahmen eines 
Dialoges mit Informationen versehen, sondern ihm bereits vorher gesammelte 
Informationen und Entscheidungshilfen aus einem bestimmten Bereich übergeben, 
um es dann selbst daran arbeiten zu lassen. Da diese Wege in Tabellen abgespei- 
chert werden, können Sie sie leicht mit einer kleinen Routine für einen späteren 
Gebrauch sichern. 
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KAPITEL 7 


UNGEFÄHRE ÜBEREINSTIMMUNGEN 


Computer verhalten sich vollkommen logisch. Im Gegensatz dazu sind unsere 
Speicherbänke sehr unzuverlässig, was immer wieder zu Problemen führen kann, 
wenn wir Informationen über ein bestimmtes Subjekt wiederfinden wollen. Z.B. 
passiert es oft, daß “gleiche” (oder ähnliche) Familiennamen völlig unterschiedlich 
geschrieben werden. 

Um diesen Problemen der unterschiedlichen Schreibweise begegnen zu können, 
hat man bereits im Jahre 1890 für die Volkszählung in den Vereinigten Staaten von 
Amerika ein Hilfsmittel entwickelt. Man versuchte dort, Übereinstimmungen auf- 
grund des Wortklanges zu erkennen. Bei entsprechender Codierung konnte man 
erreichen, daß ähnlich klingende Wörter auch eine ähnliche Codefolge hatten. 

Für die Codierung einzelner Wörter legte man folgende Regeln fest: 


1. Der erste Buchstabe des Wortes ergibt immer das erste Zeichen des Codes. 
Für den zweiten und alle folgenden Buchstaben galten folgende Regeln: 

2. Vokale werden ignoriert. 

3. Die Buchstaben W, Y, Q und H werden ignoriert. 

4. Satzzeichen werden ignoriert. 


5. Die anderen Buchstaben werden mit den Werten 1 bis 6 wie folgt codiert: 


Buchstaben Code 
bfpv 1 
cgjksxz 2 
dt 3 
i 4 
mn 5 
r 6 


6. Wenn der Folgebuchstaben den gleichen Code hat, wird nur der Code des 
ersten weiterverwendet. 


7. Es werden maximal die ersten vier Zeichen des Codes verwendet. 
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8. Wenn der Code kürzer ist als vier Zeichen, wird er mit Nullen auf vier Zeichen 
aufgefüllt. 


Hierzu einige Beispiele: 
HAUS — H200 

(H bleibt erhalten, A und U fallen weg, S ergibt 2) 
BANDAGE - B532 

(B bleibt erhalten, A fällt weg, N gibt 5, D gibt 3, A fällt weg, G gibt 2) 
IRLAND — 1645 


(| bleibt erhalten, R gibt 6, L gibt 4, A fällt weg, N gibt 5) 


CODIERUNGSPROGRAMM 


Um die bis jetzt investierte geistige Arbeit auch in der Zukunft verwenden zu 
können, lassen Sie uns ein Programm entwickeln, das die Eingabe eines Wortes in 
Deutsch und die Ausgabe im "Klangcode” erlaubt (siehe Ablaufdiagramm 7.1). 
Als erstes springen wir in ein Unterprogramm, das alle zur Berechnung des Codes 
verwendeten Buchstaben gruppenweise in je ein Element der Klangcodetabelle 
SC$(n) einliest. Dabei sind die Buchstaben entsprechend ihres Codewertes sor- 
tiert. 


198 GOSUB 188088 

18008 DIM SC$(6) 

18018 DATA BFPY,CGJKSKZ ,DT,L,MN,R 
120098 FOR N=1 TO 6 

12018 READ SCHEN) 

12825 NEXT N 

130988 RETURN 


Nun können wir das zu codierende Wort IN$ eingeben und beginnen mit der 
Codierung des Ergebnisses CO$ mit dem ersten Buchstaben des Wortes. 


1a8 INPUT IN$ 
11a CO$&=LEFTSCINS,1) 
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NIMM 
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Als <o$ 


TM$= 
mg ZU CoDE- 
LEERSTRING AHFER 






Ablaufdiagramm 7.1 Mache einen Klangcode 
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Danach untersuchen wir die restlichen Buchstaben des Wortes, 2 TO LEN(IN$). 
Dabei legen wir jeden einzelnen Buchstaben zeitweise in der Zeichenkette TM$ ab. 


28 FOR N=2 TO LEN{INS> 
38 TM&$=MIDE(CINS,N, 1) 


Die wirkliche Codierung des Buchstabens in den Code programmieren wir als 
Unterprogramm in Zeile 1000, das wir dann jeweils aufrufen können. 


148 GOSUB 1888 


Jetzt müssen wir die Zeichenkette TM$ gegen jeden einzelnen Buchstaben jeder 
Buchstabengruppe SC$(n) prüfen. Um jede Buchstabengruppe abzuprüfen, müs- 
sen wir die Schleife sechsmal durchlaufen, den laufenden Klangcode in einen 
Suchbereich SE$ ablegen und in die ISTR-Routine springen, die jeden Buchstaben 
der Gruppe gegen TM$ abprüft. 


1888 FOR P=i1 TO 6 
1818 SEF-SCH(P) 
1028 GOSUB 5808 


Die INSTR-Routine ist der ähnlich, die wir bereits in den vorherigen Kapiteln benutzt 
haben. 

Nachdem die INSTR-Routine durchgeführt ist, müssen wir feststellen, ob bzw. 
welche Klanggruppe gefunden wurde. Bei keiner Übereinstimmung wird SP% auf 
Null gesetzt. Bei einer Übereinstimmung wird SP% auf M gesetzt und zeigt damit 
auf den Wert der gefundenen Codegruppe. 


5988 FOR M=1 TO LEN<SES$) 

5818 IF MIDS(SE$,M,1)=-TM$ THEN SP%=M:RET 
URN 

5928 NEXT M 

59830 SP7=8 

5848 RETURN 


Bei einer Übereinstimmung weisen wir der Zeichenkette TM$ den “zeichenmäßi- 
gen” Inhalt der Laufvariable P zu. (Das STR$-Kommando konveriiert eine Zahl in 
eine Zeichenkette, aber wir müssen mit RIGHT$ noch das dadurch am Anfang 
zugefügte Leerzeichen ausblenden.) 
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1838 IF SPA>8 THEN TM&=SRIGHTSCSTRECPI, LI 
:RETURN 


Wenn in dieser Gruppe keine Übereinstimmung gefunden wurde, müssen wir die 
nächste Gruppe überprüfen. 


1848 NEXT P 


Wenn in keiner der Gruppen eine Übereinstimmung gefunden wurde, enthält TM$ 
eines der zu ignorierenden Zeichen. Wir löschen den Inhalt von TM$ und springen 
in das Hauptprogramm zurück. 


19858 TME="" 
iB68 RETURN 


Unser Klangcode CO$ ergibt sich nun aus dem ersten übernommenen Zeichen und 
dem zuletzt codierten Zeichen TM$. 


179 CO&=COF+TME 


Wir springen nun in unsere Schleife zurück, um das nächste Zeichen in IN$ zu 
behandeln. 


188 NEXT N 


Nachdem wir IN$ vollständig untersucht haben, drucken wir die Eingabe IN$ und 
den gesamten Klangcode CO$ aus, bevor wir zur Zeile 100 zur Anforderung einer 
neuen Eingabe zurückspringen. 


218 PRINT:PRINT "NAME", "CODE":PRINT INS, 
c0$ 
328 GOTO 188 


Bei der Benutzung dieser Routine werden jedoch die Codes noch nicht mit Nullen 
aufgefüllt bzw. auf vier Zeichen verkürzt, und gleiche Codes werden noch wieder- 
holt. 
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WIR KÜMMERN UNS UM DIE DETAILS 


Um das Problem der Wiederholung des gleichen Codes für benachbarte Buchsta- 
ben in den Griff zu bekommen, merken wir uns die letzte Zeichenkette LT$. Am 
Anfang weisen wir ihr das erste Zeichen von IN$ zu, so daß dieses Zeichen nicht 
mehr wiederholt wird. Wenn wir nun unsere FOR-NEXT-Schleife bearbeiten, müs- 
sen wir nur noch LT$ mit TM$ vergleichen. Bei Gleichheit dürfen wir TM$ nicht zu 
unserem Code CO$ addieren. Im anderen Fall erhält LT$ den Wert des letzten TM$. 


118 TME=LEFTSCINS, 1):C0$=TM$:GOSUB 1090: 
LT$=TM$ 

150 IF TM$=LT$ THEN GOTO 188 

168 LT$=TM$ 


Nun können wir uns um das Problem der zu kurzen Codes kümmern. Als erstes 
überprüfen wir, ob unser Code CO$ kürzer als vier Zeichen ist. Ist dies der Fall, 
fügen wir drei Nullen an das Ende an und reduzieren unseren Code mit LEFT$ 
wieder auf vier Zeichen. 


1388 IF LENCCBOS$S)<4 THEN CO$=C0$+"909":C0$ 
SLEFTS$SCCO$,4) 


War unser Code von Anfang an zu lang, wird er ohne vorherige Verlängerung auf 
vier Zeichen verkürzt. 


eaB IF LEN<CO$S??4 THEN COS=SLEFTFCCOSH,4) 


WIR SUCHEN ÜBEREINSTIMMUNGEN 


Nachdem wir nun eine zuverlässige Methode zum Berechnen des Klangcodes 
haben, wollen wir sie auch ausprobieren. Als erstes lesen wir eine Gruppe von 
Namen aus DATA-Anweisungen in eine Namentabelle NA$(n). In unserem Beispiel 
benutzen wir nur 18 Namen, wenn Sie mehr benutzen wollen, hilft Ihnen bestimmt 
ein kurzer Blick in das Telefonbuch. Die Anzahl der Wörter legen wir in der Variablen 
NW% ab. 
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Ablaufdiagramm 7.2 Detaillierter Ablauf 
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18810 NWA=17:DIM NASCNLMD 

11818 DATA ABRAHAM,ABRAHAMS „ABRAMS ‚ADAM, 
ADAMS „ADDAMS „ADAMSON, ALAN ALLAN ,ALLEN 
11828 DATA ANTHANY,ANTHONY „ANTON,ANTROPU 
Ss ,APFELBAUM,APPEL ARPEL ‚AZ TEKAN 

12839 FOR N=8 TO 17 

1209485 REARD NAFCN) 

129858 NEXT N 


Der Sinn der Benutzung des Klangcodes liegt darin, daß Sie mit Hilfe des Klangco- 
des eine Übereinstimmung herausfinden, bevor Sie die möglichen Wörter ausdruk- 
ken. Dazu müssen wir die Codes aller Namen, die wir aus den DATA-Anweisungen 
eingelesen haben, bestimmen und in eine Tabelle NC$(n) ablegen. Die Routine 
zum Finden des Klangcodes ist im Prinzip die gleiche, die wir bereits für das 
Auffinden des Codes der Eingabe IN$ benutzt haben. 


18029 DIM NC${NW) 

i2868 PRINT:PRINT "NAME", "CODE":PRINT 
12878 FOR Q=8 TO NW 

129888 PRINT NA$<O), 

12839 TMS=LEFTEFINAFSCOI, 13: COS=TME:GOSUB 
1899:LT$=-TM$ 

12188 FOR N=2 TO LEN{NA$CQ)) 

12118 TM$S=MIDECNA$FCO),N,.13 

ize1l20 GOSUB 1898 

12138 IF TM&=LT$ THEN NEXT N:GOTO 12178 
12198 LT#=TM$ 

12150 COS=-CO$+TM& 

12169 NEXT N 

12178 IF LENICO$)I<4 THEN COS=CO$S+"BOB":C 
OS=SLEFTSCCO$,4) 

12188 IF LENCO$)>4 THEN CO&=LEFT$S(CCO$,4 
> 

121909 PRINT COs 

12208 NC$(QO)=C0O$ 

122108 NEXT GO 


Wenn Sie das Programm nun laufen lassen, werden vor der Anforderung einer 


Eingabe alle in DATA-Anweisungen abgelegten Namen und deren Codes ausge- 
druckt. 
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ABRAHAM 


ABRAHAMS 


ABRAMS 
ADAM 
ADAMS 
ADDAMS 
ADAMSON 
ALAN 
ALLAN 
ALLEN 
ANTHANY 
ANTHONY 
ANTON 


ANTROPUS 
APFELBAUM 


APPEL 
ARPEL 
AZTEKAN 


A165 
A165 
A165 
A350 
A352 
A352 
A352 
A450 
A450 
A450 
A535 
A535 
A535 
A536 
A141 
A140 
A614 
A232 


Wir müssen jetzt nur noch herausfinden, weiche dieser Codes mit dem Code Ihrer 
Eingabe übereinstimmen und diese Namen dann mit einer FOR-NEXT-Schleife 


ausdrucken. 


248 PRINT 


e58 FOR N=8 TO NUM 


269 IF CO$&=NC$tN) THEN PRINT NASCN?,NCHt 


N) 


278 NEXT N 


Dieses Programm druckt nur Wörter aus, die exakt mit dem entsprechenden 
Kiangcode übereinstimmen. Wenn Sie einen anderen Namen eingeben, z.B. 


DARMSTADT, werden Sie folgende Antwort bekommen: 


DARMSTADT D652 


Obwohl DARMSTADT nicht in den DATA-Anweisungen vorhanden ist, können wir 


sowohl DARMSTADT wie auch andere finden. 
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Ablaufdiagramm 7.3 Teilvergleiche 
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WIR ÜBERPRÜFEN AUF TEILWEISE ÜBEREINSTIMMUNG 


Wie Sie oben sehen, wurde auch DARMSTADT in einen Klangcode umgewandelt. 
Es würde uns deshalb helfen, wenn wir auch teilweise Übereinstimmungen aus- 
drucken könnten. 

Dies könnten wir sehr einfach durch das Hinzufügen einer zusätzlichen FOR-NEXT- 
Schleife erreichen, die jeweils einen kleiner werdenden Teil der Eingabe 
LEFT$(CO$,M) mit kleiner werdenden Abschnitten der gespeicherten Codes 
LEFT$(NC$),M) vergleicht (siene Ablaufdiagramm 7.3). Die FOR-NEXT-Schleife 
wird in Zeile 260 angesprochen. 


238 FORM=4 TO 1 STEP-1 

248 PRINT:PRINT M; "ZEICHENUEBERE INSTIMMU 
NG": PRINT 

268 GOSUB 14908 

288 PRINT:PRINT "DRUECK EINE TASTE FUER 
WEITER" 

239 GET I£:IF 1%="" THEN 290 

388 PRINT:PRINT 

318 NEXT M 


1948904 FORI=1ITONWA 

14818 IFLEFT$SCCO$,M)I=SLEFTSCNCHCI),M) THE 
N PRINT NASCTI>,NSCN) 

143928 NEXT 

148368 RETURN 


Wenn Sie nun ANTHANAS versuchen, wird Ihnen der volle Bereich der Möglichkei- 
ten ausgegeben. 


NAME CODE 
ANTHANAS AS35 


4 Zeichenübereinstimmung 


ANTHANY A535 
ANTHONY A535 
ANTON A535 


FORTSETZUNG ? DANN EINE TASTE DRUECKEN 


113 


3 Zeichenübereinstimmung 


ANTHANY A535 
ANTHONY A535 
ANTON A535 
ANTROPUS A536 


FORTSETZUNG ? DANN EINE TASTE DRUECKEN 


2 Zeichenübereinstimmung 


ANTHANY A535 
ANTHONY A535 
ANTON A535 
ANTROPUS A536 


FORTSETZUNG ? DANN EINE TASTE DRUECKEN 


1 Zeichenübereinstimmung 


ABRAHAM A165 
ABRAHAMS A165 
ABRAMS A165 
ADAM A350 
ADAMS A352 
ADDAMS A352 
ADAMSON A352 
ALAN A450 
ALLAN A450 
ALLEN A450 
ANTHANY A450 
ANTHONY A535 
ANTON A535 
ANTROPUS A536 
APFELBAUM A141 
APPEL A140 
ARPEL A614 
AZTEKAN A232 


FORTSETZUNG ? DANN EINE TASTE DRUECKEN 
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KAPITEL 8 


WIR ERKENNEN UMRISSE 


Normalerweise erkennen wir Objekte unter Benutzung unserer Sinne. Wir können 
sehen, hören, tasten und fühlen. Unser Computer kann natürlich nur Informationen 
über die Tastatur bekommen. Um Ihrem Computer einen genaueren Eindruck von 
der ihn umgebenden Welt zu geben, müßten wir mit einem erheblichen Einsatz an 
Wissen und Erfahrung elektronische oder mechanische Sensoren anschließen. Wir 
werden uns statt dessen mit der Simulation von Lichtsensoren begnügen, um das 
Erkennen von Umrissen zu demonstrieren. 

Am Anfang wollen wir versuchen, drei einfache Umrisse zu erkennen: Eine vertikale 
Linie, eine Quadrat und ein rechtwinkliges Dreieck. 

Wir können uns diese Umrisse in einem imaginären Gitternetz (8 x 8) vorstellen und 
dann entscheiden, ob ein Punkt bei jeder Koordinate vorhanden ist oder nicht. 

Im Falle der Linie ist nur die erste X-Koordinate, aber alle Y-Koordinaten benutzt. 
Ein Quadrat ist ein bißchen komplizierter, da alle X-Koordinaten der Y-Reihen 1 und 
8 gesetzt sind und von den Y-Reihen 2 und 7 nur der erste und letzte X-Punkt 
gesetzt sind. Das Dreieck ist sogar noch komplizierter, da der Linienzug durch das 
jeweilige Hochzählen der X-Koordinate errreicht wird. 


Y-Zeile Linie Quadrat Dreieck 
1 1 255 1 
2 1 129 3 
3 1 129 5 
4 1 129 9 
5 1 129 17 
6 1 129 33 
7 1 129 65 
8 1 255 255 


Tabelle 8.1 Dezimalwerte der Umrisse in binärer Form 


Ein Weg, diese speziellen Figuren zu beschreiben, wäre die Darstellung jedes 
Punktes durch ein einfaches Bit und die Berechnung eines Dezimalwertes für jede 
Zeile, wie wir es bei unseren Expertensystemen bereits verwendet haben (siehe 
Tabelle 8.1). Mit diesem Verfahren werden die Zeichen dargestellt, die Sie auf 
Ihrem Bildschirm sehen. Die Formate dafür sind im Speicher in dieser Art abgelegt. 
Das Bild 8.1 zeigt z. B., wie der Buchstabe “A” aufgebaut ist. 

Es gibt aber Maschinen, sogenannte “Klarschriftieser” die diesen Prozeß in umge- 


115 


kehrter Reihenfolge beherrschen. Sie sind in der Lage, gedruckte Informationen 
einem Gittermuster entsprechend abzuprüfen und festzustellen, ob bei der jeweili- 
gen Position Licht reflektiert wird oder nicht. 





8.1 Aufbau des Buchstabens “A” 
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Abbildung 8.2 Entscheidungsbaum für das Alphabet 
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Sie lesen in Wirklichkeit ein *Ja”- und- “Nein”-Muster für jede Koordinate, die 
diese Information codieren und sie mit den Mustern bekannter Umrisse verglei- 
chen. Die einfachste Art eines Vergleichs wäre, jeden Punkt als ein Bit aufzufassen, 
jede Zeile in einen Dezimalwert umzurechnen und diesen dann mit der Tabelle der 
bekannten Werte zu vergleichen. Dies hat jedoch den großen Nachteil, daß wir 
jeden einzelnen Punkt eines möglichen Gitters überprüfen müssen. 


WIR OPTIMIEREN UNSERE ENTSCHEIDUNGEN 


Eine schnellere Methode beruht auf der Tatsache, daß jedes Zeichen aufgrund der 
Überprüfung einiger kritischer Eigenschaften erkannt werden kann. In Bild 8.2 ist 
z. B. der Entscheidungsbaum für alle Großbuchstaben des Alphabets unter Benut- 
zung von nur 12 Punkten (siehe Bild 8.3) angegeben. In einigen Fällen ist es sogar 
noch nicht einmal nötig, alle 12 Punkte zu überprüfen. Bei der Verfolgung der 
Entscheidungspfade werden Sie feststellen, daß mit sieben Schritten jeder Buch- 
stabe gefunden werden kann, und daß die meisten Buchstaben sogar schon mit 
weniger als fünf Schritten gefunden werden. Dies ist auf jeden Fall schneller, als die 
Überprüfung von 8x 8 = 64 Einzelpunkten. 


3 Schritte — I, D 

4 Schritte — L,J, C,G,0,W 

5 Schritte -— S,.A,Q,R,T, F, U, Leerzeichen 
6 Schritte -— P,V,Y,H 

7 Schritte -— BMN, E.K,X%Z 


Um Ihnen dieses Verfahren zu demonstrieren, simulieren wird die Arbeitsweise des 
Prüfkopfes, in dem wir ein Gitter auf dem Bildschirm darstellen, indem Sie Ihre 
Zeichen konstruieren können. 

Die Bildschirmstartadresse 1024 und das FarbRAM-Offset 54272 sind als Variable 
TS bzw. CO definiert. Der Bildschirm wird gelöscht, und ein dunkler Bereich von 
6 x 8 Blöcken wird in der linken oberen Ecke angelegt. Zum Markieren des aktuellen 
Arbeitsbereiches wird ein hellerer Bereich von 5x 7 Blöcken in den größeren 
Bereich gelegt. 


18 GOSUB 18958 

108398 TS=-1024:C0=54272:REM 55=1924+481 
12088 PRINT "3" 

12816 FOR N=1 TO 18 

12920 PRINT 
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12838 NE=&T N 

13098 FOR K=B TO 6 

13818 FOR Y=-8 TO S 

13828 POKE TS+CO+K+(Yx40),11 
13938 POKE TS+tX+(Yx49),224 
13848 NEXT Y,X 

13858 FOR »=1 TO 5 

13068 FOR Y=1 TO 7? 

139878 POKE TS+CO+rK+t(YxK49>3,1 
135808 NEXT Y,X% 

130898 KA=1:Y=-l 

13109 RETURN 


Mit einem blinkenden Cursor wird Ihre Position angezeigt. CP ist die laufende 
Position auf dem Bildschirm, TS + Offset (der jeweiligen Farbe) wird durch PEEKen 
der entsprechenden Position im FarbRAM nach CC gebracht. Eine andere Farbe 
(CC + 4) wird dann an diese Stelle gePOKEt und die Originalfarbe (CC) zurückge- 
POKETt, damit der alte Zustand wiederhergestellt wird. 


28 GET A$ 

38 CP=TS+X+(Y%448):CC=PEEK (CP+CO):POKE CP 
+C0 ,CC+4:POKE CP+CO,CC 

48 IF A$="" THEN 20 


Die X- und Y-Koordinaten werden entsprechend der Bewegung des Cursors 
geändert, und beim Drücken der Leerzeichentaste wird die Farbe der entsprechen- 
den Position auf Schwarz (0) gesetzt. Wenn Ihnen ein Fehler unterläuft, können Sie 
durch Drücken der Rücktaste die Farbe der laufenden Position wieder auf 1 setzen 
oder mit CLR zur Aufbauroutine in Zeile 13000 zurückspringen und damit das 
jeweilige Gitter löschen. Durch das Drücken der RETURN-Taste erreichen Sie die 
Decodierungsroutine. Wenn keine dieser Tasten gedrückt wurde, wird auf erneuten 
Tastendruck abgeprüft. 


sa IF As="W" THEN Kekrl 
gs IF At=" THEN #=K-1 
8 IF As="M" THEN Yayıl 
s8 IF As="D" THEN YeY-i1 
sa IF A$=" " THEN POKE TS+HCO++X+CY#49>,0 


ıva IF A$="M" THEN POKE TS+C0O+X+r(Yr49),1 
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118 IF As="" 
120 IFASC(A$I=13 THEN 2898 


178 GOTO 28 


THEN GOSUB 13898 


Um den Cursor am Verlassen unseres 5x 7 Gitters zu hindern, müssen entspre- 
chende Grenzen gesetzt werden. 


138 IF x<i1 THEN K=i 
1486 IF %>5 THEN X%=5 
158 IF Y<i THEN Y=sl 
168 IF Y>7 THEN Y=7 


Der Entscheidungsbaum ist in einer Reihe von verknüpften Tabellen abgelegt, 
wobei NB die Anzahl der Entscheidungspunkte ist, LE$(n) die Namen der Buchsta- 
ben enthält, Ci(n) und C2(n) die X- bzw. Y-Koordinaten für die nächste Überprü- 
fung enthalten, und N(n) bzw. J(n) das nächste zu benutzende Element für den 
“Nein”- bzw. “Ja”-Fall enthalten. 


11008 
11818 
NB) 
11828 
11034 
11948 


NB=53 
DIM LES<NB?,CI1CNBI,.C2CNBI,.NENBIL.YEC 


FOR N=1 TO NB 


RERD LESCN?.CI<CND.C2<N? „NEN ,YiND 


NEXT N 


Die DATA-Anweisungen gibt man am besten als 53 getrennte Zeilen (je eine für 
jeden Entscheidungspunkt) ein, da man dann eventuelle Fehler leicht ändern kann. 


13810 
1438208 
14838 
14940 
14558 
140658 
14978 
14888 
14990 
141080 
i41i18 
is1208 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


‚Sr r12,13 


ne 
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14138 
i4148 
14158 
i4166 
i4178 
14198 
14196 
14208 
14218 
14220 
14238 
143240 
14258 
14268 
13276 
14280 
14299 
14300 
14318 
14328 
14338 
143490 
14358 
14358 
14378 
14388 
14398 
14400 
143418 
1944208 
14438 
14440 
14458 
14460 
13470 
14480 
144908 
14599 
14518 
145208 
14538 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


a 
»35,7,18,15 
‚2,93,17,16 
PA’ Lrrr 
"GO" orrr 
a 
‚3,1,20,23 
‚3,4,81,29 
‚Sr 387,82 
‚,3,7,83,06 
,3,9,824,85 
"PY,yer 
"EN iz 
"RN, urr 
u EEE 
"D".svr 
,3+7,945,38 
‚2,6,31,44 
‚,9,3,32,39 
»1,5,33,36 
»,3,1,34,35 
"KN.ser 
"Z'ussr 
‚4,2,38,37 
"Kerr 
IE 
‚2,4,98,43 
‚4,2,92,41 
"M'nırr 
"N" ysrr 
"H',ısr 
"Wursr 
»3,1,96,51 
-1,5,47,50 
‚2,4,958,43 
u rer 
MN LLEr 
"U®.srr 
‚1,5,52,53 
"Troarrr 


"Eur 


Wenn Sie mehr Selbstvertrauen haben (oder Leerzeichen sparen wollen), können 
Sie alle DATA-Anweisungen in acht ziemlich unleserlichen Zeilen verdichten. 
Beachten Sie jedoch bitte die exakte Anzahl der Kommas, und seien Sie vorsichtig 
beim Ändern von Fehlern. 


14818 DATA ‚1,1,2,19,,1,5,3,18,,3,82,4,9, 
‚3,1,59,8,,3,1,6,7," We De E3 

14889 DATA "I" ,,,7r"1",3273r5,9,11,14,,5 
Sri, "EC" rs" Orr H Hr 73H 7 Hr 18,15 
14158 DATA „2,4, 17,16," A" "9" "DO 
Yrrrr Dr tl ,rEB,89,,3,9,21,28,,3,3,87,822 
1432289 DATA 3,7,23,26, ,3,35,24,25,"P",rr, 
rd = BEE SEINE EHER Te u LEER 

14298 DATA ‚5,7,45,30,,2,86,31,44,,5,3,38 
‚39, ,1,5,33,36,,3,1,34,35, "8" v3 33 

14358 DATA "Z",,,55,4r8,38,37 ,"K" sr Hr" E 
N yrrr 4,49 ,43,,4,2,92,4l, "MM", 5, 
14420 DATA INH N res srlr 
46,51,,1,5,47,580,,2,4,98,993,"Y" sr 
14498 DATA "Y",,,,,"U",,33,,1,5,52,53,"T 


il n n 
rrrrr" vr! 


Um nun ein beliebiges Zeichen gegen die vorhandenen Muster überprüfen zu 
können (siehe Ablaufdiagramm 8.1), muß der Tabellenzeiger AP zuerst auf 1 
gesetzt werden, so daß die Überprüfung wirklich am Anfang beginnt. Die X- und 
Y-Koordinaten werden aus C1(AP) und C2(AP) gelesen, und der “letzte Position”- 
Zeiger LP wird auf den laufenden Wert des Tabellenzeigers AP gesetzt. 

Die Punktfarbe PC dieser Koordinaten wird durch PEEK (TS + CO + X + (Y*40)) 
AND 15 festgestellt. Ist sie Null, dann ist der Punkt gesetzt, und wir müssen mit dem 
“Ja”-Zeiger Y(AP) weiterarbeiten. In jedem anderen Fall arbeiten wir mit dem 
“Nein”-Zeiger N(AP) weiter. In beiden Fällen muß jedoch überprüft werden, ob das 
angezeigte Element eine Null (die das Ende eines Entscheidungszweiges angeben 
würde) enthält, was ein erkanntes Zeichen bedeutet. In diesem Fall wird der 
entsprechende Buchstabe LE$(LP) ausgegeben. Die Bildschirmanzeige bleibt 
solange erhalten, bis durch Drücken einer Taste ein neuer Suchzyklus initiiert wird. 
Solange jedoch ein höherer Wert als Null gefunden wird, haben wir unseren 
Entscheidungsbaum noch nicht vollständig durchlaufen, das Programm springt zur 
Zeile 2010 zurück und arbeitet mit neuen Werten von C1(AP) weiter. Die überprüf- 
ten Werte können Sie dadurch erkennen, daß diese nach dem Auffinden unter- 
schiedliche Farben bekommen. “Ja”- und “Nein”-Verzweigungen werden nach 
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dem Testen, wenn sie nicht besetzt waren, hellgrün (3), und wenn sie gesetzt waren 
rot‘-(3 + 1) dargestellt. Alle besetzten, aber nicht überprüften Punkte verbleiben 
schwarz. 








FELD 
ZEIGER 
=1 








MERKE 
x 
KORDINATE 







MERKE 





y 
KoOoRDINATE 






SPEICHER 


ARBEITE 
MiıT 

ZEISER „ 

"GESETZT 










ARBEITE 
nT 


"KEIN" ZEIGER 








GIB Aus 
BUCH STABR 


Ablaufdiagramm 8.1 Zeichenerkennung 
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2000 AP=1 

2018 X=CicAP)tTY=C2tAP):LP=AP 

2028 PC=PEEK<TS+CO+K+CYK4B)) AND 15 
20838 IF PC=8 THEN AP=Y(AP):GOTO2ESO 

2948 AP=N{AP) 

2858 IF AP=8 THEN 2079 

BO6O POKE TS+CO+K+(Yx48),3+CPC=B):GOTO 2 
e18 

2978 PRINT LE$(LP)? 


2888 GET As:ılIF A$="" THEN 20808 
2839 GOSUB 130998:60T0 2a 


Wenn Sie den wirklichen Entscheidungspfad wissen wollen, müssen Sie die 
folgenden Modifikationen in Ihr Programm einfügen, und die entsprechenden 
Informationen werden Ihnen ausgegeben. Durch Addition eines Offsets von 481 zu 
SS wird das Gitter an das untere Ende des Bildschirms verschoben, und mit BL$ 
legen wir uns eine Leerzeichenkette an, die wir später zum "Säubern” des 
Bildschirms benutzen. 


108883 REM ZEILE 18095 49 MAL SPACEBALKEN 
DREUCKEN 


18895 BL$=" 


2885 PRINT'"3":" AP":PRINT 


2855 PRINT AP 

2878 PRINT:PRINT " "7LESCLP)I:SPRINT 

2975 PRINT"DRUECK EINE TASTE DANN GEHTS 
WEITER" . 

2885 PRINT"W":FOR N=1 TO 18:PRINT BLS$:NE 
xTN 


Diese Schnellsuchmethode, bei der nur kritische Entscheidungspunkte untersucht 
werden, hat einen erheblichen Nachteil. Im Falle eines im Entscheidungsbaum nicht 
enthaltenen Musters erhalten wir trotzdem eine Übereinstimmung, während bei der 
Methode, in der alle Punkte überprüft werden, keine Übereinstimmung erkannt wird. 
Mit den früheren Klarschriftlesern konnte man nur immer einen bestimmten Zei- 
chensatz erkennen, während die neuesten Maschinen nicht nur verschiedene 
Zeichensätze zulassen, sondern auch durch ein eingebautes Expertensystem die 
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dafür notwendigen Erkennungsregeln selbst lernen. Sie können sie dies lehren, 
indem Sie ihnen einige Textseiten zeigen und dann die gleichen Zeichen über die 
Tastatur eingeben. Es wird aber bestimmt noch eine lange Zeit dauern, bis jemand 
eine Maschine gebaut hat, die unsere Handschrift lesen kann. 
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KAPITEL 9 


EIN INTELLIGENTER LEHRER 


Ein weiterer Anwendungsbereich, in dem künstliche Intelligenz sehr nützlich sein 
kann, sind die Lehrprogramme. Es wäre schon sehr gut, ein Programm zu haben, 
das das Wissen eines Schülers wahllos abfragt; aber das ist nicht die Arbeitsweise 
eines wirklichen Lehrers. Neben dem Stellen von Fragen beobachtet er den 
Fortschritt des Schülers, steigert die Schwierigkeit der Fragen mit wachsender 
Erfahrung und prüft dann speziell in den Bereichen, in denen er Schwierigkeiten 
hat. Wenn z. B. ein Kind in den Bereichen Addieren, Subtrahieren, Multiplizieren 
und Dividieren überprüft wird und nur die Divisionen falsch macht, dann müssen 
diesem Kind in der Zukunft zur Übung mehr Divisionsaufgaben gegeben werden. 
Lassen Sie uns nun sehen, wie wir diese “menschlichen” Qualitäten in ein 
Lehrprogramm einbauen können. 


FRAGEN UND ANTWORTEN 


Zuerst benötigen wir Zufallszahlen ("Random”-Zahlen), die wir in der Addition 
benutzen. Die Funktion INT(RND(1)*10) gibt uns Zahlen zwischen 0 und 9. 


ee 


28 Ar=INTIRND(1)%18) 
38 BA=1INT<RND<CI)%K19) 


Der Computer addiert diese und geht dann zu einem “Eingabe- und Prüf”- 
Programm bei Zeile 1000. 


48 CA=A4+BHÄ:GOSUB 1098 
Zuerst muß die Frage ausgegeben werden, danach wird Ihre Antwort IP$ abgefragt. 


1080 PRINT AZ "+"3BXr "="3 
1812 INPUT IPX 


Ihre Antwort muß dann überprüft werden. Wenn die Programmantwort C% mit Ihrer 
Antwort übereinstimmt, wird RICHTIG ausgegeben, und das Programm kehrt zur 
Zeile 40 zurück. Anderenfalls wird FALSCH, DIE RICHTIGE ANTWORT IST gefolgt 
von der richtigen Antwort ausgegeben. 
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ı9822 IF C“=IP% THEN INZ=-1:PRINT "RICHTI 
G":RETURN 

1038 INAZ=1:PRINT "FALSCH, DIE RICHTIGE A 
NTWORT HEISST "7C% 

i049 RETURN 


Mit den anderen drei Bereichen (Subtraktion, Multiplikation und Division) kann man 
in der gleichen Art und Weise verfahren. Dazu ersetzen wir das "Plus”-Zeichen 
1000 durch SG$, das dann für die entsprechende Aufgabe immer mit dem passen- 
den Rechenoperator versehen wird. Da INT(RND(1)*10) bei allen Berechnungen 
benutzt wird, definieren wir es uns als Funktion RD. 


15 BEF FNRDCHI=RNDC1?KIO 

ea A7=FNRD <ADA> 

38 BA=FNRD (AD) 

49 SG$="+":CH=AArBA:GOSUB 1908 
5a A%=FNRD (SU) 

69 BAÄ=FNRD<SUA) 

oa SG$="-":C4=-A7-B7:G0SUB 18988 
88 AÄ=FNRD<MUR) 

932 BA=FNRD<MUA) 

180 SG#$="x":CH=A44B7:G0OSUB 1008 
118 BA=FNRD<DIAIHFI 

128 AA=INTCFNRDCDIAD?%BA 

139 SG$="7":10%=A77B7:GOSUB 1808 
12838 PRINTAZSGSBAF "="; 


Schließlich springen wir zur Zeile 20 zurück, um neue Aufgaben zu stellen. 


148 GOTOEB 


DIVISION DURCH NULL! 


So wie das Programm jetzt arbeitet, wird es bei einer Division durch O “abstürzen”. 
Dieses Problem können wir einfach dadurch lösen, daß wir zu dem Divisor B% 
immer eine 1 addieren. 


128 B#=FNRD (DIA +1 


128 


WIR VERMEIDEN DEZIMALZAHLEN 


Obwohl wir in den Aufgaben nur ganze Zahlen benutzen, kann das Ergebnis einer 
Division natürlich eine Dezimalzahi sein. Um dieser Problematik von vornherein aus 
dem Wege zu gehen, müssen wir dafür sorgen, daß A% ein Mehrfaches von B% 
ist. Aus diesem Grunde berechnen wir erst B% und berechnen A% aus einer 
Multiplikation von B% mit einer Zufallszahl zwischen O und 10. 


118 BA=FNRD (DIA HI 
1208 AZ=INT<IFNRD(DIX)?%xB% 


WIR ZÄHLEN DIE RICHTIGEN ANTWORTEN 


Nachdem der Test selbst einwandfrei arbeitet, sollten wir uns um das Zählen der 
richtigen Antworten kümmern. Am einfachsten zählen wir eine “Versuch”-Variable 
TR% bei jeder Benutzung des Unterprogramms bei der Zeile 1000 hoch und tun 
das gleiche mit einer “Treffer”-Variablen SC% bei jeder richtigen Antwort. 


1819 INPUT IPA: TRA=TRA+1 u 

1828 IF CX=IPX THEN:PRINT "RICHTIG":SCH= 
SCH+1:60TO 1848 

1948 PRINT "DU ERREICHTEST "3SC4H"/"FTRA 
:RETURN 


Wenn Sie den prozentualen Anteil der richtigen Antworten von der Gesamtanzahl 
der Fragen bevorzugen, sollten Sie die Zeile 1040 wir folgt abändern: 


1848 PRINT "DU ERREICHTEST "7 INTCCSCA/TR 
wIr189)7"% RICHTIGE ANTWORTEN" RETURN 


WIE VIELE FRAGEN SOLLEN WIR STELLEN? 


Das jetzige Programm fragt nacheinander jeweils eine Frage eines Typs und fängt 
dann wieder von vorne an. Durch die Definition der erlaubten Anzahl von Fragen als 
Variable NQ% können wir die Anzahl der zu stellenden Fragen begrenzen. 


18 NAZ=32 
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Bei jeder Frage wird NQ% um 1 vermindert, und der Test wird beendet, wenn 
NQ%=0 erreicht ist. 


158 IF NQ%Z>8 THEN 20 
169 END 
1818 INPUT IPA: TRA=TRA+1:NOA=SNOA-1 


WIR VERSCHIEBEN DIE SCHWERPUNKTE 


Wenn wir jedoch bei den Fragen Schwierigkeitsbereiche berücksichtigen wollen, 
müssen wir uns den Leistungsstand für jeden Bereich merken. Wir brauchen 
deshalb für jeden Fragentyp getrennte Variablen (AD% für Addition, SU% für 
Subtraktion, MU% für Multiplikation und DI% für Division). Diese Variablen werden 
als der achte Teil der Anzahl der Fragen NQ% definiert. 


18 N0%=32 :AD4=N0478 :SUX=ADX 1 MUX=SADY:DIY= 
ADA:WTA=NG - (2 xADH) 


Wenn nun die richtige Antwort C% mit Ihrer Antwort IP% übereinstimmt, wird IN% 
auf —1 gesetzt, RICHTIG ausgegeben, und das Unterprogramm kehrt zurück. Im 
anderen Fall wird I% auf 1 gesetzt und FALSCH, gefolgt von der richtigen Antwort 
ausgegeben. 


1228 IF CA=IP% THEN INA=-1:PRINT"RICHTIG 
":RETURN 

1839 INA=1:PRINT"FALSCH. RICHTIGE ANTWOR 
T WAR "560% 

1848 RETURN 


Danach wird IN% zu der entsprechenden Fragevariablen (AD%, SU%, MU% oder 
DI%) addiert. Bei einer falschen Antwort wird dadurch die Frage-Variable erhöht, bei 
einer richtigen Antwort vermindert. 


49 SG$="+":1CH=A4trB7:G0SUB 1AAB:ADA=SADTHI 
NA 
78 SG$="-":C4=A4-BA:GOSUB 1999:5U7=SUArI 
NA 
189 SC$="x":1CH7=A7xB4:GOSLUB 1998: MUXZ=MUX+ 
INA 
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1398 SG$="7":CH=A4/BR:GOSUB 1999:DI4=DIA+ 
INA 


Nun erweitern wir unser Programm um die Überprüfung, ob alle Fragen eines 
speziellen Typs fehlerhaft beantwortet wurden (z.B. AD%>0, siehe Ablaufdia- 
gramm 9.1). Wenn alle Fragen eines Typs korrekt beantwortet worden sind, werden 
keine Fragen dieser Art mehr gestellt, da die entsprechende Programmzeile über- 
sprungen wird. Wenn jedoch die vorgegebene Anzahl der Fragen jeden Typs 
korrekt beantwortet wurden (AD%=0, SU%=0, MU%=0 und DI%=0), wird das 
Programm beendet. 


a8 IF AD%>B THEN SG$="+":C4H=A7+BX:G0OSUB 

12905 :ADA=ADA+ ING 

7a IF SUX>@ THEN SG$="-":C4=A4-BA:GOSUB 
19809 : SUA=SU7+ INA 

188 IF MUX>O THEN 56$="%":1C%=A%xB%:G0SUB 
1809: MUJZ=MUA+ INA 

1398 IF DIX>@a THEN SG$="7":1CK4=AA/Br: GOSUB 
1809:DIX=DIA+ ING 

148 IF ADX=B AND SUX=8 AND MUX=D AND DI“ 
=d8 THEN 168 


Wenn Sie in einem Bereich vier Fragen ohne Fehler beantwortet haben, werden hier 
keine weiteren Fragen gestellt. Wenn Sie jedoch einen Fehler machen, werden die 
entsprechenden Variablen (AD% usw.) wieder erhöht, und Sie müssen mehr als 
vier korrekte Antworten geben, bevor Sie wieder den Wert O erreichen. 


WIR VARIIEREN DIE SCHWIERIGKEIT 


Es wäre bestimmt sehr interessant, die Schwierigkeit der Fragen entsprechend der 
Qualität der Antworten zu variieren. Bis jetzt schwanken die Werte für A% und B% 
immer zwischen 0 und 9, da sie mit der Funktion RND(1)*10 erstellt wurden. In der 
Zukunft wollen wir im Fall einer richtigen Antwort größere Zahlen benutzen, im Fall 
einer falschen Antwort jedoch kleinere. Dabei müssen wir jedoch verhindern, daß 
wir im Fall einer katastrophalen Leistung in den negativen Bereich abrutschen. 

Im Grenzfall könnten Sie alle Fragen der ersten drei Gruppen richtig beantwortet 
haben, aber keine der letzten Gruppe. In diesem Fall wären nur vier Fragen für jede 
der ersten drei Gruppen gestellt worden, wodurch 32-(3*+4)=20 Fragen für die 
letzte Gruppe verbleiben würden. Außerdem müssen wir berücksichtigen, daß X 
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ZÄHLE 
VERSUCHE 
HÖHER 


ENDSTAND 








INDIVIDUELLEN 
PUNKTESTAND 





Ablaufdiagramm 9.1 Intelligenter Lehrer 


(z.B. AD%) mit dem Wert 4 beginnt, so daß der hächste-erreichbare Wert von X 
20+4=24 ist. 

Wir definieren uns deshalb eine Wichtungsvariable WT%, die durch die Subtraktion 
der dreifachen Anzahl der in einer Gruppe zu stellenden Fragen (3*AD%) von der 
Gesamtzahl der zu fragenden Antworten NOQ%, erhöht um die Anzahl der Fragen 
einer Gruppe AD% errechnet, wird. 
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WT%=NO%-(3*AD%) +AD% 
Vereinfacht sieht das so aus: 
WT%A=NO% -(2*AD%) 


18 NQ%4=32 :ADA=N0478 : SUX=ADX : MUX=SADS:DIY= 
AD 


Wir ersetzen nun den Wert 10 in unserer Random-Funktion durch die Differenz 
zwischen WT% und X. 


15 DEF FNRDCKH>=RNDCHIKCWTA-R) 


Wir beginnen mit WT%=24 und X=4, so daß Zahlen zwischen O0 und 19 gewählt 
werden können. Bei einer richtigen Antwort wird X auf 3 reduziert, so daß Zahlen 
zwischen O und 20 gewählt werden können. Nach vier korrekten Antworten ist X=0, 
und diese Zeile wird übersprungen. Die letzten möglichen Werte liegen demnach 
zwischen O und 22. Wenn jedoch bereits die erste Antwort falsch war, wird X um 1 
vermindert (O bis 18). Im Grenzfall wird X ingesamt zwanzigmal auf 24 erhöht und 
(WT% —X) wird für A% und B% auf 0 fallen. Dieses spezielle Problem müßten sie 
noch bei Ihrem Programm berücksichtigen. 
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KAPITEL 10 


DAS GESAMTPROGRAMM 


In den vorherigen Kapiteln haben wir, beginnend mit den einfachsten Prinzipien, die 
verschiedenen Aspekte der künstlichen Intelligenz behandelt. In diesem abschlie- 
Benden Kapitel haben wir viele dieser Einzelideen in einem Gesamtprogramm 
vereinigt. 

Das erste “intelligente” Programm überhaupt war das berühmte “ELIZA”, ein 
pseudo-psychiatrisches Programm zur Erstellung einer bestimmten psychiatrischen 
Therapie. Wir haben jedoch der Versuchung, diesem Weg zu folgen, widerstanden 
und haben uns indessen entschlossen, ein Programm für einen Computerverkäufer 
zu erstellen. Unter Benutzung einiger Ideen aus den Bereichen der Sprachverarbei- 
tung und der Expertensysteme ist dieses Programm in der Lage, ein Ergebnis zu 
erstellen, das auf dem Verständnis Ihrer Anforderungen beruht und Empfehlungen 
zu geben, die Ihre Anforderungen und wirtschaftlichen Fakten berücksichtigen. 
Wir haben bis jetzt schon eine Menge Wörter und Werte berücksichtigt, die das 
Programm recht interessant machen, aber Sie können es durch Hinzufügen weite- 
rer DATA-Anweisungen noch auf Ihre Anforderungen maßschneidern. (Wir können 
jedoch keine Verantwortung für die im Programm enthaltenen Werte übernehmen, 
da sie nur für diese Demonstration erstellt wurden.) Das Programm ist ziemlich 
komplex, aber es basiert auf den bis jetzt in diesem Buch beschriebenen Methoden. 
Die Funktion der verschiedenen Variablen und Tabellen ist in der Tabelle 10.1 
erklärt. 


WIR UNTERHALTEN UNS 


Die Aufgabe des Programms ist es, Sie über Ihre Ansichten in bezug auf eine 
Anzahl von möglichen Eigenschaften zu befragen. Die genaue Frage wird willkürlich 
aus einer Gruppe von Redewendungen zusammengestellt. Beachten Sie, daß das 
Schlüsselwort bzw. die Redewendung unter Anwendung der richtigen Konjugation 
(wenn notwendig) in den Satz eingefügt wird. 

Ihre Eingabe wird im Detail auf Schlüsselwörter untersucht und eine Regeltabelle 
wird entsprechend Ihrer Anforderungen verändert. Wenn Sie beobachten wollen, 
wie die Regeltabelle verändert wird, dann löschen Sie die Zeile 5490. Viele der 
Schlüsselwörter sind verkürzt, so daß mit einer Überprüfung viele gleichartige 
Wörter gefunden werden können, und mit einem weiteren Test wird überprüft, ob 
die gefundene Zeichenkette am Anfang eines Wortes steht. 
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EINFACHE VARIABLEN 


IS 
1$ 
12$ 
IP 
QP 


TP 


Tabelle 10.1 
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INSTR-Beginn 

zu überprüfende Zeichenkette 

zum Überprüfen benutzte Zeichenkette 
INSTR-Zeiger 

Anzahl der Fragesätze 

Anzahl der Fragen 

Anzahl der Regeln 

Kontostand 

Anzahl der Redewendungen 

Anzahl der Wörter einer Redewendung 
Übereinstimmungsmarkierung 
Objektkennzeichen 
Objektübereinstimmung 
Zustimmung/Ablehnung 
Satzrest-Zeiger 

Negativzeiger 

UND Übereinstimmungszeiger 
ABER Übereinstimmungszeiger 
Regeländerungsmarkierung 

Anzahl der Objekte 

Anzahl der Adjektive 

Anzahl der Adverbien 

Anzahl der Zustimmungen 

Anzahl der Ablehnungen 

Anzahl der negativen Adjektive 
Anzahl der negativen Adverbien 
Anzahl von “billig/teuer” 

Anzahl der Computer 

Anzahl der Eigenschaften 

Anzahl der Kostenvergleiche 
Anzahl der Kostenempfehlungen 
Anzahl der Entschuldigungen 
Anzahl der Hochpreisempfehlungen 
Anzahl der Niedrigpreisempfehlungen 
Gesamtkosten 

Gesamtgewinn 


Die wichtigsten Variablen in “Verkäufer” 


TABELLEN (FELDER) 


OB$(OB) 
AJ$(AJ) 
NJ$(NJ) 
AVS(AV) 
NV$(NV) 
LI$(LI) 
DL$(DL) 
0$(Q) 
OP$(QP) 
CR(Q) 
PR(Q) 
IC(Q) 
IP(Q) 
HM$(HM) 
R({R) 
CO$(FE) 
FE(CO,FE) 
C(CT) 
CS$(CS) 
EX$(EX) 
HIS(HI) 
LO$(LO) 


Objekte 

Adjektive 

negative Adressen 
Adverbien 

negative Adverbien 
Zustimmungen 
Ablehnungen 
Frageobjekte 
Fragesätze 

Kosten 

Gewinn 
Gesamtkosten 
Gesamtgewinn 
billig/teuer 

Regeln 
Computernamen 
Eigenschaftsnamen 
Kostenvergleiche 
Kostenempfehlungen 
Entschuldigungen 
“teuer” Informationen 
“billig“ Informationen 


Mit der einfachsten Antwort “JA” oder “NEIN” wird jeweils eine 1 zu der entspre- 
chenden Regel für diese Eigenschaften addiert oder davon subtrahiert. Wenn Sie 
den Namen einer Eigenschaft erwähnen (z.B. "GRAPHIK”), wird eine weitere 
Regel addiert. Außerdem erhöht ein “positives Adjektiv oder Adverb die Regel, 
während ein “negatives” Adjektiv oder Adverb die Regel vermindert. Durch die 
Aufteilung der Wörter in verschiedene Klassen können Sie zur gleichen Zeit mehr 
als eine Änderung an einer Regel durchführen. 


So ergibt: 
JA plus 1 
JA BASIC plus 2 
JA BASIC NOTWENDIG plus 3 
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JA GUTES BASIC NOTWENDIG plus 4 
Dagegen gibt: 
NEIN minus 1 
KEIN SPEICHER minus 2 
Darüber hinaus werden Verben in “Zustimmungen“ und “Ablehnungen“ unterteilt 


wobei durch “Ablehnungen” der Sinn des Rests der Wörter umgekehrt wird. 
Deshalb ergibt: 


’ 


ICH VERABSCHEUE MACRODRIVES minus 1 


“NEIN” und “NICHT” werden erkannt, und die meisten doppelten Negierungen 
werden korrekt interpretiert. 


Somit ergibt: 
ICH LEHNE TON AB minus 2 
ICH LEHNE TON NICHT AB plus 1 


Eine Information am Anfang des Satzes, die von einem Komma gefolgt wird, wird 
normalerweise abgeschnitten und nicht mehr berücksichtigt. D. h.: 


NEIN ICH MOECHTE KEINEN GUTEN KLANG minus 3 
Eine Ausnahme wird gemacht, wenn “UND” oder “ABER” enthalten sind, und 


wenn beide Satzteile unterschiedliche Meinungen ausdrücken. Das bedeutet, wenn 
die Frage: 


MOECHTEN SIE GRAFIK? 
beantwortet wird mit: 
NEIN, ABER ICH MOECHTE GUTEN KLANG 
dann wird 1 von der Grafikregel subtrahiert, und zwei zur Klangregel addiert. 


Wenn das Programm kein einziges Schlüsselwort in der Eingabe findet, fragt es 
höflich nach einem neuen Versuch: 
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IA 


RU=SRU+ 
LD=1 


FÜLLE WÄHLE 


DIE h FRAGE” 


FELDER WÖRTER 





HÄNGE 
SPACE AN 
UND VARIABLE 








RU+VE 


@) 





VERBINDE 


Es, 
UND HANGE 
SPRCE AN 


GIB Aus 





HÄNGE ES 
AN MOMEN- 
TANE 

AUSSAGE AN 






ZIEHE ES 
AB vos 

AKTUELLER 
AUSSAGE 
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LD=LD%*1 





LD =LD%2 
RU=RU+LD 








IA LD=LD*-1 


es RU=RU+LD 





JA 


(2) 


OBJEKT 
BESCHREIBUM, 


4 
KREDIT- 
STATUS" 


AKT UALISIERE 
MOMENTANE 
REGEL 

SATZBESCHREI. 


AKTUALISIERE 

TOTAL PREIS 
UND 

SUMME PROFIT 





(3) 
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Nc= 
ZAHL IN 
Po $ 


CH=CH+ 


ZUFALLS- 
zAHL 





AKTUALISIERE 


we T5=HI 


AKTURALISIERE 
BS=LO 
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VERZEIHUNG, ENTSCHULDIGEN SIE MICH ABER... 


Das Programm kann nicht gleichzeitig zwei Funktionen behandeln. Wenn Sie z. B. 
zur gleichen Zeit nach “KLANG und GRAFIK” fragen, werden Sie zur Wiederho- 
lung der Frage aufgefordert. 


HALT DIE LUFT AN, EINS NACH DEM ANDEREN 


Sie haben jedoch die Möglichkeit, Kommentare in bezug auf einzelne Eigenschaf- 
ten zu machen, obwohl danach im Moment nicht gefragt wird. Durch diese Eingaben 
werden die Regeln trotzdem entsprechend geändert (wie bei dem “ABER“-Beispiel 
im obigen Satz). 


ENTSCHEIDUNGEN 


Neben der Regeltabelle gibt es zwei weitere Tabellen, die mit dieser verknüpft sind. 

Die “Kostentabelle" enthält Informationen über die Kosten einer speziellen Aktion, 

und die “Gewinntabelle” gibt dem Verkäufer Information darüber, ob es sich lohnt, 

einen bestimmten Aufwand für den Verkauf zu tätigen. Die Werte dieser beiden 

Tabellen werden durch die Multiplikation des Inhalts des entsprechenden Regelta- 

bellenelements mit den als DATA-Anweisungen in Zeile 10100 eingegebenen 
. Faktoren berechnet. Das Format dieser DATA-Anweisungen ist: 


(Name der Eigenschaft, Kosten, Gewinn). 


Nach jeder Eingabe berücksichtigt der Verkäufer die Konsequenzen Ihrer Anforde- 
rungen. Als erstes überprüft er, ob die Gesamtkosten bei Ihren Anforderungen Ihr 
Guthaben übersteigt. Wenn dies der Fall ist, werden einige sarkastische Kommen- 
tare in bezug auf Ihre Kreditwürdigkeit ausgegeben: 


DIESE AUSFUEHRUNG SCHEINT IHREN KREDITRAHMEN ZU SPRENGEN 
Er überprüft auch die Höhe seines möglichen Gewinns bei diesem Geschäft; wenn 
dieser zu gering ist, wird er das Interesse verlieren und sich mit folgenden 


Argumenten herausreden: 


MOMENT BITTE DAS TELEFON KLINGELT, ICH HABE EINEN WICHTIGEN 
TERMIN 


oder 
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WIR SCHLIESSEN IN FUENF MINUTEN 


Daneben ist er jedoch sehr hilfreich. Er stellt Vergleichslisten in bezug auf Ihre 
Anforderungen auf, um Ihnen mitzuteilen, welcher der verfügbaren Computer Ihren 
Bedürfnissen gerecht wird. Dabei vergleicht er den vom Computer-Hersteller 
angenommenen Wert einer Eigenschaft mit Ihren Forderungen. Das Format dieser 
Vergleichsinformationen ist: 


(Name, Wert der Eigenschaft 1, Wert der Eigenschaft 2, Wert der Eigen- 
schaft 3 usw.) 


Wenn möglich, wird die am höchsten bewertete Maschine immer zuerst ausgewer- 
tet. Auf jeden Fall werden jedoch drei Maschinen (möglicherweise mit niedrigeren 
Bewertungen) ausgewählt, und die endgültige Entscheidung wird daraus getroffen. 
Der billigste oder der teuerste Computer wird wahllos herausgesucht und z. B. mit 
folgenden Bemerkungen angeboten: 


WOLLEN SIE ABER DEN ROLLS-ROYCE DER COMPUTER DANN IST ES 
DER... 


und 


WENN SIE NICHT SOVIEL AUSGEBEN MOECHTEN — WIE IST ES DANN 
MIT... 


Wenn jedoch nur eine Maschine in den vorgegebenen finanziellen Rahmen paßt, 
wird das Programm mit folgender Empfehlung aufwarten: 


IHRE EINZIGE MOEGLICHKEIT IST... 


Verkäufer 


18 GOSUB 93308 

28 G0OTO 289 

188 FOR IS=FT TO LEN{II1&) 

119 IF MIDS$S(11$,IS,LENC1I2$))=12% THEN IP 
=15:RETURN 

128 NEXT IS 

1398 IP=-B:RETURN 

298 PH=INT{RND<13#COP)Y+1):PHS=OPS$CPH) 
218 I1$=PH3: 12$="/":FT=1:60SUB 188:5P=1P 
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220 IF SP=&6 THEN 488 
230 IFLEFTE(GS(CQ),13="0"THENPH$S=LEFTSCPH 
$,5P-1)+" SIND"+RIGHTSCPHE,LEN{CPH$>-SP) 


318 IFLEFT$(QSCH),13="&"THEN PH$&=LEFTS(P 
HP,SP-1)+" IST"+RIGHTS(PHS,LEN{PH&)I-SP) 


4908 IiS=PH&: 1l2%="%":FT=1:605UB 1098 

418 IF SP=8 THEN 490 

428 PH&=LEFT$S(CPHS,SP-1)+" "+RIGHTFSCOSE(Q> 
‚LENO$S(O)>-1)+RIGHTSCPHF,LEN(CPHSEI-SP} 
430 GOTO 568 

448 PH&=PHE&+" "+RIGHTFSCOAFCQ) ,„LENOSCU))- 
ı) 

458 PRINT:PRINT 

588 PRINT PH$;" ?" 

688 PRINT 

788 IN#&=" " 

718 GET I$:PRINT "<H"; 

’e2eB IF I$="" THEN 718 

738 IF IS=CHR$(13) THEN 888 

48 IN$=IN$+1# 

758 PRINT 18 

168 GOTO 718 

sa0 LD=1:0F=-1:FS=1:NP=8:RU=B:M=9:0M=0:5 
1=-8:52=6 

389 ITi#=INS: I2$=",":FT=1:605SUB 188:CM=IP 


918 IF CM=5 THEN 1688 

1808 li$=IN$: 12$5="UND":FT=1:G05UB 188:51 
=1IP 

1818 I1S=1IN$: 12$="ABER":FT=1:G0S5SUB 1989:5 
2B=1IP 

1288 IF Si1+52=8 THEN 1588 

13988 IF LEFTE{INS,S><>" NEIN" THEN 1988 
1318 R£@>=R<CQ>-1:IC<(Q)=ICtQ) -CRÄQ): IPIO> 
=IP<@>-PR<G>:60T0 1588 

1488 R<O>=R<SQ)+1:ICCA?’=ICCR) +CR CO): IPCa) 
=IP(@>+PR(QG)> 

15988 INS=RIGHTECINS,LENGINE)-CM)} 
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1688 I1i#=IN$: I2$="JA":FT=FS:GOSUB 1989:5P 
=1IP 

1798 IF SP>G8 THEN RU=sRU+1:LD=1:M=1:F5=SP 
+1:60T0 16069 

1899 I11$=IN$: I2$="NEIN":FT=SFS:GOSUB 1088: 
SP=IP 

1888 IF SP>B THEN LD=-1:M=1:FS=SP+1:NP=N 
P+1:G0TO 1888 

2809 I1$=1IN$: 12$="NICHT":FT=-FS:GOSUB 188 
ıSP=IP 

2188 IF SP>B8 THEN LD=-1:M=1:FS=5P+1:NP=N 
P+1:G0T0 2888 

2208 IF NP=8 THEN 2309 

2218 IF INT{CNP/2>=NP/2 THEN RU=RU+1:LD=1 


:GOTO 2309 

2250 RU=RU-1:LD=-1 

2388 FOR N=8 TO LI 

2400 I1ls=IN$: 12$=LIFCN):FT=1:G60SUB 198:5 
P=IP 

2418 IF SP=8 THEN 2589 

2420 IF MIDSCIN$,SP-1,1>=" " THEN LD=LD+ 
1:M=1 

2508 NEXT N 

2698 FOR N=8 TO DL 

2788 11$=1IN$: 12$=DL$(N):FT=1:60SUB 199:5 
P=IP 

e7ıa IF SP>d THEN IF MIDS<INS,SP-1,19=" 
" THEN LD=LD%-1:M=1 

2808 NEXT N 

2988 FOR N=ö TO 0B 

38088 I1$=-IN$: 12$=0B$(N):FT=1:GOSUB 199:5 
P=1P 

s3Bie IF SP>A THEN IF MID$<CINS,SP-1,19=" 
"THEN RU=RU+LD:OF=N:M=1:0M=0M+1 

siaa NEXT N 

3288 FOR N=8 TO AV 

3308 I1$=IN$: I2$=AVSCN):FT=-1:GOSUB 190:5 
P=IP 

3318 IF SP=8 THEN 3658 

3488 IF MIDSCINS,SP-1,1>°>" " THEN 3688 
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3588 RU=RU+LD:M=1 

3608 NEXT N 

3788 FOR N=8 TO NV 

3808 I1$=1IN$: Ias=WECN):FT=1:G0SUB 188:5 


P=IP 


3818 IF SP=8 THEN 4108 

3988 IF MIDS<CINS,SP-1,1>5>" " THEN 4180 
4888 LD=LDx-1:RUSRUFLD:M=1 

41988 NEKT N 

4288 FOR N=8 TO AJ 

4308 li$=1IN$: IE£=AJSINI:FT=1:G0OSUB 198:5 


P=IP 


4318 IF SP=8 THEN 4688 

4488 IF MIDSCINE,SP-1,1><>" " THEN 4688 
45088 RU=RU+LD:M=1 

4508 NEXT N 

4788 FOR N=8 TO NJ 

4889 11$=1IN8$: I2AS=NJISCN):FT=1:G0SUB 199:5 


P=IP 


4318 IF SP=2 THEN 5198 

43088 IF MID$SCIN$,SP-1,1><>" " THEN 5108 
5888 LD=LDx*-1:RU=SRU+LD:M=1 

5188 NEXT N 

5118 FOR N=5 TO HM 

S128 I1$=1IN$: 12$=HMSCN):FT=1:G0SUB 1098:5 


P=IP 


5138 IF SP=8 THEN 5178:REM ALT 5198 
5148 IF MIDSCINS,SP-i1,1><>" " THEN 5178 
S1S58 KK=N:IF 8%<2 THEN PRINT"BILLIG UND 
AERMLICH":GOTO 5178 

Si68 IF Xx>=2 THEN PRINT"ZIEMLICH TEUER" 


51708 NEXT N 
5188 PRINT 


5206 IF 
TE NOCH 
5398 IF 
NS NACH 
5488 IF 


M<i THEN PRINT "VERZEIHUNG „ BIT 
EINMAL ":60T0 288 

OM>1 THEN PRINT "MOMENT MAL - EI 
DEM ANDEREN" :GOTO 208 

OF=-1 THEN 5449 


5418 R{iOF>=R<OF)I+RU:SIC<COF>=SICKOF)+SCRIDOF 
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>#RU)> 

5428 IP<SOF>=IPCOF>+IPRCOF>RU) 

5438 GOTOS388 

5448 RtQ)=R<@>+RU: ICSO>=ICKO)+CCR<O>KRU) 
:IP<@)>=IP<cO>+<PR<G) «RU? 

5438 GOTO 59399 

5988 FOR N=8 TO 0B 

6988 TC=-TCE+HICCN) 

861009 TP=TP+IP<ND 

6288 NEXT N 

8398 IF TP<0x5 THEN T#=1INT{RND<B)KER):PR 
INT:PRINT EX$(T%) 

5488 IF TC>BB/2 THEN PT=RND (BI XCS:PRINT: 
PRINT CS$<PT) 

6508 TC=8:TP=8 

6788 FOR %=3 TO 8 STEP-I:POS="" 

63008 FOR N=8 TO CO 

6988 IF FE<CN,Q>-RtQ)>X THEN PO#=PO$+RIGH 
TS<(STR$<N?,1):M=N 

7888 NEXT N 

’ıa88 IF PO&s="" THEN NEXT X: GOTO 93288 
ı18 IF LEN<PO$S><3 THEN NEXT X 

7318 GOTO 7988 

7350 PRINT PO$ 

7355 PRINT#4,PO$ 

408 IF PO$="" THEN 9268 

7598 FOR N=i1 TO LEN<POS? 

7688 PRINT COS&(VAL<SMIDE<POS,N,1393> 

7685 PRINT#4,CO& (VAL <CMIDS<POS,N,13>) 
7788 NEXT N 

7888 PRINT 

908 TS5=8:BS=8 

8898 FOR CH=8 TO LEN<POSI-I 

8188 NC=VAL<CMIDSCPOS,CH+1,19) 

8288 IF C<NC>Y>=TS THEN TS=C<SNC’I:HI=NE 
83080 IF C<NC><S=BS THEN BS=SCCNC9SLOSNC 
8488 NEXT CH 

8418 IF HI=LO THEN PRINT "DANN IST DEINE 
EINZIGE WAHL": PRINT COSCHI>:GOTO 3288 
8598 HIS=COSCHII:LOSSCOE(LO) 


seoa SE=-RND«I>HI 

8780 SL=RND<1)Y%2 

ssod IF SE=1.5 THEN 9188 

8388 PRINT HIS(SL3,,,;‚HIS$ 

3888 GOTO 3288 

8188 PRINT LO$(SL),,,,L0$ 

32088 Q=G+1:IF Q<28 THEN 288 

9218 END 

33998 QP=5:Q=19:R=0:0B=R:AJ=5:AY=5:L1=3:D 
L=3:NJ=8:NV=2:HM=3:BB=188 

3310 DIM OB&(OB),AJSCAJI ,NISCNTI ,AYSCAV> 
NVECNVD ,LIS{LI) ,DLSCDL>,0$C0) 

3328 DIM R<R> ,QOPEtaP),CRCR),PR<Q>,ICiQ), 
IP<cQ> ,HMSCHM? 

9429 DATA BASIC ,GRAPHIK,TON, TASTATUR FUN 
KTION,MEMORY,TAPE,FESTPLATTE ‚DISK 

9418 DATA SOFTWARE „CARTRIDGE „JOYSTICK ,AS 
SEMBL ‚CENTRONICSINT. ‚RS232 „ERWE ITERUNG 
39429 DATA MEHRPLATZS,16-BIT,MULTITASK,SE 
RYICE 

3598 DATA GUT HERVORRAGEND „SUPER , TOLL,ER 
ST ,SCHNELL ‚WIRKSAM,WICHTIG VIEL 

96988 DATA SCHLECHT „SCHUND „ARM,LANGSAM,UN 
WIRKSAM, WENIG ,SCHL IMM,KLEIN,LETZT 

3788 DATA WIRKLICH,SEHR ,OFT,VIEL,NOETIG, 
ECHT 


3880 DATA NIE ,UNNOETIG,SELTEN 

93988 DATA MOECHTE ‚MAG „BRAUCHE „FORDERE 
18098 DATA HASSE,MAG NICHT ,VERABSCHEUE ‚„L 
EHNE AB 

181088 DATA AGUTES BASIC,S,2,8GRAPHIK,7,2 
‚&TON,E,2,&ECHTE TASTATUR ,4,2 

18118 DATA BFUNKTIONSTASTEN,1,5,&VIEL SP 
EICHER,3,86,&EINEM TAPEINTERFACE ‚2,2 
18128 DATA BFESTPLATTE,2,4,@DISCDRIVE,S, 
8,&REICHLICHE SOFTWARE ‚90,3 

18138 DATA SEIN EXPANSION PORT,1, 6 

18298 DATA &JOYSTICK PORT,1,7,&ASSEMBLER 
‚Erl,&EIN CENTRONICS PORT,2,5 

18219 DATA &ARS232 PORT,2,6,&ERWETTERUNGE 
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N,2,9,&MEHRPLATZSYSTEM,S3,4 

i8228 DATA SEINE 16-BIT CPU,1,7,&MEHRPLA 
TSYSTEM,S,S,SGUTER SERVICE ,1,9 

183998 DATA MOECHTEST DU,WAS IST MIT,VERL 
ANGST DU,WILLST DU,BRAUCHST DU 

18318 DATA /xWICHTIG 

18328 DATA BILLIG,PREISWERT 

183308 DATA WERTVOLL ,TEUER 


198488 FOR N=8 TO OB:READ OB&(N):SNEXT N 
18588 FOR N=8 TO AJ:READ AJS$<iN):NEXKT N 
18688 FOR N=B TO NJ:READ NJS(IN?:NEXT N 
18788 FOR N=B TO AV:READ AVSCN):NEXT N 
18888 FOR N=@ TO NV:READ NYSCN)ENEXT N 
18388 FOR N=8 TO LI:READ LI$<ND:NEXT N 
11808 FOR N=8 TO DL:READ DLE{N?:NERT N 
11188 FOR N=B TO G:READ Q&(CN),.CR<N?,PREN 
>:NEXT N 


11288 FOR N=8B TO QP:READ QPSCN):NEXKT N 
11218 FOR N=8 TO HM:READ HMS<NI:NEKT N 
11388 PRINT "u":Q=8 

11488 PRINT"MIT GROSSER FREUDE SEHE ICH 
DICH HIER Im COMMODORE -COMPUTERSHORF ! 


11418 PRINT 

115808 PRINT "WIR SIND SICHER DIE BESTE Q 
UELLE FUER ALLE COMPUTER -PRÖDUKTE . 
11585 PRINT 

11518 PRINT"MIT VERGNUEGEN BERATE ICH DI 
CH BEI DER WAHL EINES COMPUTERS. 
11515 PRINT 

11688 PRINT"DIREKT AM GERAET KANN ICH DI 
R DIE ARBEITSWEISE ERKLAEREN. 
11685 PRINT 

11618 PRINT"UM SPEZIELLE WUENSCHE ZU ERK 
ENNEN, IST 

118628 PRINT"ES AM EINFACHSTEN, WENN DU M 
IR EINIGE FRAGEN BEANTWORTEST. 
11659 PRINT 

117988 PRINT:PRINT" BIST DU BEREIT? 
11785 PRINT:PRINT" DANN DRUECKE DIE <SP 
ACE>TASTE! 
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1189898 CO=93:FE=13:CT=3:DIM CO$&(FE>,FE(CO, 
FE’ ,DF<CO,FE>,CICT?> 

11989 DATA CBM 8432,7,8,9,9,8,3,8,8,93,3, 
7,7,8,7,6,8,8,93,3,93 

12888 DATA CBM 3008,6,7,6,8,8,8,8,8,8,8, 
8,08,8,7,6,8,8,9,93,7 

12188 DATA COMMODORE 64,7,7,3,7,9,8,8,9, 
9,6,7,7,8,7,6,7,93,3,9,1 

12288 DATA C-16,6,5,94,6,8,3,7,0,5,5,8,8, 
6,8,8,3,1,08,8,2 

123088 DATA BANANA IIE,3,5,2,5,0,4,6,8,3, 
8,3,5,8,808,6,7,08,8,8,4 

12488 DATA VC 20,7,8,8,7,7,8,8,8,7,8,7,% 
‚8,8,6,8 »8,8,0,8 

12598 DATA PLUS-4,5,5,5,5,9,5,5,5,5,1,7, 
7,8,8,6,5,8,3,8,8 

12689 DATA C-128 PC,7,6,4,7,3,8,7,8,%,3, 
8,7,8,0,6,3,8,8,06,6 

12780 DATA C-116,2,8,3, I. 7,8,5,8,6,9,6,7 
‚8,0,2,2,8,8,8,6 

128808 DATA ALPHA-BETA,1,8,8,5,8,2,5,0,7, 
7,7,7,8,0,6,6,0,0,8,5 

12998 DATA 10,9,5,7,6,5,4,8,8,1 

130808 FOR N=8 TO CO 

13188 READ COs&(ND 

13288 FOR M=8 TO FE 

133080 READ FE<N,M)> 

13408 NEXT M,N 

13588 FOR N=8 TO CT 

i3680 READ CN) 

137088 NEXT N 


13388 GET A$:IF A$s="" THEN 13808 
13988 DATA ICH GLAUBE DU UEBERSCHREITEST 
DEINE FINANZ IELLEN MOEGLICHKEITEN 


13918 DATA DIESE KOMBINATION SCHEINT DEI 
NEN KREDIT RAHMEN ZU SPRENGEN 

13928 DATA ICH GLAUBE NICHT DASS DU DIR 

DIESEN LUXUS LEISTEN KANNST 

143088 DATA MOMENT ICH GLAUBE DAS TELEFON 
KLINGELT,ICH HABE EINE VERABREDUNG 
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14818 DATA WIR SCHLIESSEN IN 5 MINUTEN 
14189 CS=2:EKX=2:DIM CS$CC5Y:DIM EXF$LER) 
14200 FOR N=8 TO CS:READ CS$CNI:NEXRT N 
14388 FOR N=9 TO EX:READ EX${iN):NEXT N 
14488 DATA WENN DU ABER IN RATEN KAUFEN 
WILLST WIE WAERE ES MIT DEM 

14418 DATA EINE PREISWERTE WAHL IST DER, 
GUTE WARE FUER DEIN GELD IST DER 

14588 DATA WENN DU ABER ETWAS ERSTKLASSI 
GES WILLST VERSUCHE ES MIT DEM 

14518 DATA NICHT ZU SCHLAGEN ALS MOMENTA 
NER STAND DER TECHNOLOGIE IST DER 

14528 DATA WENN DU ABER EINEN ROLLS-ROYCE 
E WILLST DANN SCHAUE AUF DEN 

14588 HI=2:L0=2:DIM HI$SCHI>,LOS(CLO) 
147008 FOR N=8 TO LO:READ LO$S<N?:NEXT N 
14808 FOR N=8 TO HI:READ HI$S{ND:NEXT N 
143988 PRINT "3":RETURN 
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KOMMENTARE 


Zeilen 100-130: Enthalten eine INSTR-Routine. 


Zeilen 200-440: Wählen die Wörter für die nächste Frage aus, die richtige 
Konjugation wird berücksichtigt. 


Zeilen 500-800: Bereiten Ihre Eingabe auf und setzen die Variablen zurück. 
Zeilen 900-910: Prüfen auf ein Komma ab. 


Zeilen 1000-1200: Prüfen auf “UND” und “ABER”. Wenn keines von beiden 
vorhanden ist, springt das Programm zur Zeile 1500. 


Zeilen 1300-1310: Verändern die laufende Regel negativ für den Pfeil, wenn 
“UND” oder “ABER” vorhanden sind, und das erste Wort “NEIN” ist. 


Zeile 1400: Verändert die laufende Regel positiv für den Fall, daß “UND” oder 
“ABER” vorhanden sind und das erste Wort nicht “NEIN” ist. 


Zeile 1500: Löscht alles vor einem Komma. 


Zeile 1600-2100: Überprüfen auf “JA”, “NEIN” und “NICHT” und ändert die 
laufende Regel entsprechend. 


Zeile 2200: Überprüfen auf eine doppelte Negation. 
Zeilen 2300-2500: Prüfen auf “Zustimmungen“. 
Zeilen 2600-2800: Prüfen auf “Ablehnungen”, 


Zeilen 2900-5100: Ähnliche Überprüfungen auf Objekte, Adjektive und Adver- 
bien. 


Zeilen 5110-5190: Überprüfungen auf hohe und niedrige Kosten. 


Zeile 5200: Überprüfungen auf keine Übereinstimmungen und entsprechende 
Ausgaben. 


Zeile 5300: Überprüfungen auf mehr als ein Objekt. 
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Zeilen 5400-5440: Änderungen der laufenden oder einer anderen Regel, abhän- 
gig davon, ob das Objekt auf die laufende Frage zutrifft oder nicht. 


Zeile 5490: Überspringt die Ausgabe der Regel. 
Zeilen 5500-5800: Gibt die Regeln aus. 
Zeilen 5900-6200: Verändert die Gesamtkosten und die Gewinnwerte. 


Zeile 6300: Gibt eine Entschuldigung aus, wenn der Gewinn zu niedrig zu sein 
scheint. 


Zeile 6400: Gibt eine Warnung aus, wenn die Ausgaben zu hoch sind. 

Zeile 6500: Setzt die gesamten Kosten und Gewinnwerte auf Null. 

Zeilen 6700--7120: Sucht nach einem Computer, der die Anforderungen erfüllt. 
Zeile 7310: Überspringt die Ausgabe des passenden Computers. 


Zeilen 7900-8400: Wählt den teuersten und billigsten Computer aus, der die 
Anforderungen erfüllt. 


Zeile 8140: Überprüft, ob nur ein Computer ausgewählt wurde. 
Zeilen 8500-9100: Gibt den Namen des teuersten oder billigsten Computers aus. 


Zeile 9200: Ändert die zu prüfende Eigenschaft und fragt nach einer weiteren 
Eingabe. 


Zeilen 9300— 11300: Bereitet die Informationen über Eigenschaften, Schlüsselwör- 
ter, Kosten und Gewinne auf. 


Zeilen 11400-11700: Begrüßt den Kunden. 


Zeilen 11800—13800: Bereitet die Informationen über die Namen und Fähigkeiten 
der einzelnen Maschinen auf. 


Zeilen 13900—-14300: Enthält Warnungen und Entschuldigungen. 


Zeilen 14400--14900: Enthält die Kaufempfehlung entsprechend der finanziellen 
Situationen des Käufers. 
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DER REST HÄNGT VON IHNEN AB 


Künstliche Intelligenz ist ein faszinierender Bereich, und wir sind sicher, daß wir 
Ihnen genügend Information für einen eigenen Start zum Experimentieren in 
diesem Bereich gegeben haben. Wir hatten sehr viel Spaß beim Zusammenstellen 
dieses Buches, und wir warten jetzt nur noch darauf, daß jemand ein “ Expertensy- 
stem” zum Schreiben von Büchern entwirft. 
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‘Künstliche Intelligenz auf dem 
Commodore 64’ zeigt, wie ent- 
sprechende Routinen auf Ihrem 
64er zu entwerfen sind, die einen 
Dialog mit Ihnen führen, die Rat- 
schläge erteilen, die von Ihnen 
lernen (oder Sie auch etwas lehren) 
und sogar Programme für Sie 
schreiben können. 

Das Buch erklärt ‘Künstliche 
Intelligenz’ in ihren Grundprin- 
zipien und setzt keine Erfahrung 
auf diesem Gebiet voraus. Dabei 
werden wichtige Aspekte ange- 
sprochen und anhand von Pro- 
grammbeispielen erläutert. Seit 
vielen Jahren haben Science-Fic- 
tion-Bücher und -Filme ihre Leser 
dadurch gefesselt, daß darin ‘intel- 
ligente’ Computer auftreten, die 
schließlich menschenähnlich han- 
delten. Obwohl (Gott sei Dank) 
viele der beschriebenen Geschich- 
ten unrealistische Illusionen blei- 
ben, sind doch viele Ideen durch 
umfassende Forschung der Wirk- 
lichkeit nähergerückt. 

Keith und Steven Brain, ein 
Vater-und-Sohn-Team, sind auch 
als Autoren von erfolgreicher 
Spielesoftware hervorgetreten. Sie 
liefern regelmäßig Beiträge für die 
englische Computer-Zeitschrift 
‘Popular Computing Weekly’. 
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